EXCEL2007 VBA编程如何实现逐行多对对查找

发布网友发布时间：2022-04-29 21:05

我来回答

共2个回答

热心网友时间：2022-06-22 20:19

这个不需要VBA呀，用公式就可以搞定的

如下：

sheet1表结构如下：

sheet2表结构如下：

B2里输入的公式为

=IF(ISERROR(MATCH(A2 & B1,Sheet1!A2:A9 & Sheet1!B2:B9,0)),"",INDEX(Sheet1!C2:C9,MATCH(A2 & B1,Sheet1!A2:A9 & Sheet1!B2:B9,0)))

【注】在B2里复制粘贴以上公式后要同时按下CTRL+SHEFT+ENTER组合键

当你改变A2和B1的值时，B2里就会跳出相应的完成内容

热心网友时间：2022-06-22 20:20

Sub 多条件查找输出()

Dim s1, s2, t1, i, t2

s1 = Sheet1.Range("a" & Cells.Rows.Count).End(3).Row

t1 = Sheet2.Range("a" & Cells.Rows.Count).End(3).Row

For t2 = 1 To t1 Step 2

    i = 3

    For s2 = 1 To s1

        If Sheet2.Cells(t2, 2) = Sheet1.Cells(s2, 2) And Sheet2.Cells(t2 + 1, 2) = Sheet1.Cells(s2, 1) Then

            Sheet2.Cells(t2 + 1, i) = Sheet1.Cells(s2, 3)

            i = i + 1

        End If

    Next s2

Next t2

msgbox "查找输入完毕!"

End Sub
我按以下这种条件格式进行设定的VBA编程

EXCEL2007 VBA编程 如何实现逐行多对对查找

EXCEL2007 VBA编程如何实现逐行多对对查找