|
- Sub Macro1()
- Dim arr, brr, d, i%, j&
- Set d = CreateObject("scripting.dictionary")
- Sheets("总表").Activate
- brr = Range("h3:h" & Range("h65536").End(xlUp).Row)
- For i = 1 To 2
- arr = Sheets(i).Range("a2").CurrentRegion
- For j = 3 To UBound(arr)
- d(arr(j, 2)) = arr(j, 3)
- Next
- Next
- For i = 1 To UBound(brr)
- brr(i, 1) = d(brr(i, 1))
- Next
- Range("i3").Resize(UBound(brr)) = brr
- End Sub
复制代码 |
|