数据比对

zhangcheng6688

学习一下数组
Sub test()
arr = [a3].CurrentRegion
brr = [d3].CurrentRegion
ReDim crr(1 To UBound(arr), 1 To 2)
For i = 3 To UBound(arr)
    For j = 3 To UBound(brr)
        If arr(i, 2) = brr(j, 1) Then
            GoTo x
        End If
    Next
    m = m + 1
    crr(m, 1) = arr(i, 1)
    crr(m, 2) = arr(i, 2)
x:
Next
If m > 0 Then
      [f3].Resize(m, 2) = crr
End If
End Sub

sunya_0529

lizhipei78

zhangcheng6688

向老师们学习字典
Sub test()
arr = [d1].CurrentRegion
brr = [a1].CurrentRegion
ReDim crr(1 To UBound(brr), 1 To UBound(brr, 2))
Set d = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr)
   d(arr(i, 1)) = ""
Next
For j = 3 To UBound(brr)
   If Not d.exists(brr(j, 2)) Then
      m = m + 1
      For k = 1 To UBound(brr, 2)
         crr(m, k) = brr(j, k)
      Next
   End If
Next
[f3].Resize(m, UBound(crr, 2)) = crr
End Sub