|
- Sub test()
- Dim r%, i%
- Dim arr, brr
- Dim d As Object
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- Set d = CreateObject("scripting.dictionary")
- With Worksheets("匹配")
- r = .Cells(.Rows.Count, 1).End(xlUp).Row
- brr = .Range("a2:l" & r)
- For i = 1 To UBound(brr)
- d(brr(i, 1)) = i
- Next
- End With
- With Worksheets("数据")
- r = .Cells(.Rows.Count, 1).End(xlUp).Row
- arr = .Range("a2:l" & r)
- For i = 1 To UBound(arr)
- If d.exists(arr(i, 7)) Then
- m = d(arr(i, 7))
- arr(i, 8) = brr(m, 4)
- arr(i, 9) = brr(m, 8)
- arr(i, 10) = brr(m, 9)
- arr(i, 11) = brr(m, 11)
- arr(i, 12) = brr(m, 12)
- End If
- Next
- .Range("a2:l" & r) = arr
- End With
-
- End Sub
复制代码 |
|