|
- Public Sub test()
- Dim d, arr, brr, crr(), i, n
- arr = Sheet1.Range("a1:a" & Range("a65536").End(3).Row)
- brr = Sheet2.Range("a1:e" & Sheet2.Range("e65536").End(3).Row)
- Set d = CreateObject("Scripting.Dictionary")
- ReDim crr(1 To UBound(brr, 1), 1 To UBound(brr, 2) - 1)
- For i = 1 To UBound(brr, 1)
- d(brr(i, 1)) = Array(brr(i, 2), brr(i, 3), brr(i, 4), brr(i, 5))
- Next
- For n = 1 To UBound(arr, 1)
- If d.exists(arr(n, 1)) Then
- crr(n, 1) = d(arr(n, 1))(0)
- crr(n, 2) = d(arr(n, 1))(1)
- crr(n, 3) = d(arr(n, 1))(2)
- crr(n, 4) = d(arr(n, 1))(3)
- End If
- Next
- Sheet1.Range("b1").Resize(UBound(crr, 1), UBound(crr, 2)) = crr
- Set d = Nothing
-
- End Sub
复制代码
代码 |
|