脚本/macros,用于search查找值对(在列D,E中)是否存在于查找数组中(列A,B中)

用于search查找值对(在列C,D中)是否存在于查找数组(在列A,B中)的脚本/macros。

我遇到了MATCH VLOOKUP但他们只查找一个值,但我想要的是如下。

请注意:COLUMN A总是按sorting顺序

  ABCDEF _______________________________________________________________________ BOB 100 details1 CCA 100 print "False" BOB 200 details2 DBA 100 print "False" BOB 300 details3 BOB 100 print "details1" CCA 500 details4 BOB 500 print "False" 

作为F1一个数组公式

按住CTRL + SHIFT + ENTER一起

 =INDEX($C$1:$C$4,MATCH(D1&E1,$A$1:$A$4&$B$1:$B$4,0)) 

我假设您正在比较列D&E和分别与列A和B,并且当两个相应的列匹配时,您正在列6列中列3值与匹配的值集打印。

 Sub macro() Dim a, x, y As Integer a = 1 Cells(a, 4).Select Do While ActiveCell.Value <> "" x = ActiveCell.Value y = ActiveCell.Offset(0, 1).Value Cells(1, 1).Activate Do While ActiveCell.Value <> "" If ActiveCell.Value = x Then If ActiveCell.Offset(0, 1).Value = y Then Cells(a, 6) = ActiveCell.Offset(0, 2).Value End If End If ActiveCell.Offset(1, 0).Activate Loop a = a + 1 Cells(a, 4).Select Loop End Sub 

希望这可以帮助!