请教如何比较两组数据

lorencecheng · 发表于 2017-3-21 21:35

如附件，表1中作为一组总的数据。表2的数据，如何根据A列和B列都与表1中对应的数据相同的，就在C列中显示对应的设定呢。谢谢指导。

lrsh1985 · 发表于 2017-3-21 21:53

aaaaaaaaaaa

lorencecheng · 发表于 2017-3-21 22:18

lrsh1985 发表于 2017-3-21 21:53
aaaaaaaaaaa

谢谢，但除了用exact和vlookup函数外，如何用vba代码实现呢？
我参考了论坛里的类似问题的代码，写了以下代码，但不知哪里错误。请指出。谢谢
Sub test()
Dim d
Set d = CreateObject("Scripting.Dictionary")
Dim arr, brr
arr = Sheets("sheet1").Range("A2:C" & Range("A65536").End(xlUp).Row)
brr = Sheets("sheet2").Range("A2:B" & Range("A65536").End(xlUp).Row)
ReDim crr(1 To UBound(brr))
For i = 1 To UBound(brr)
For j = 1 To UBound(arr)
      If brr(i, 1) = arr(j, 1) And brr(i, 2) = arr(j, 2) Then
         crr(i) = arr(j, 3)
      End If
Next j
Next i

Range("C2").Resize(UBound(brr), 1) = crr

End Sub

whjpbh · 发表于 2017-3-21 22:24

=VLOOKUP(A2&B2,IF({1,0},Sheet1!$A$2:$A$500&Sheet1!$B$2:$B$500,Sheet1!$C$2:$C$500),2,0)

whjpbh · 发表于 2017-3-21 22:27

在2表C2中输入以上公式，CTRL+SHIFT+ENTER三键

		自动登录	找回密码
密码			免费注册