数据比较后的疑问，请各位热心的大佬指教一下

anson

两组数据比较后，需要把条件相同的结果（G列）写入C列上，现在执行代码后得到了不一样的，还望各位热心的大佬能指教一下，谢谢！

quqiyuan

这里的i、j错位了

anson

quqiyuan 发表于 2024-9-28 16:57
这里的i、j错位了

改过来试了一下，结果还是不一样，现在结果是cbb,原来的是cca,想要的结果是cab或者是cba

quqiyuan

anson 发表于 2024-9-28 17:09
改过来试了一下，结果还是不一样，现在结果是cbb,原来的是cca,想要的结果是cab或者是cba

原来是cca肯定是不对，现在两个是cbb就跟VLOOKUP道理一样，只能找到一个

quqiyuan

quqiyuan

代码如下。。。
Sub test()
    a = Range("a2:b4")
    b = Range("e2:g4")
    For i = 1 To UBound(a)
        For j = 1 To UBound(b)
            aa = a(i, 1) & a(i, 2)
            bb = b(j, 1) & b(j, 2)
            If aa = bb Then
                Cells(i + 1, 3) = b(j, 3)
                b(j, 2) = Empty
                Exit For
            End If
        Next
    Next
End Sub

DevilW

gwjkkkkk

字典写一个。。。