|
- Sub Macro1()
- Dim arr, brr, crr, d, i&, i2&, j%, x%
- Set d = CreateObject("scripting.dictionary")
- Columns(3).ClearContents
- arr = Range("a4").CurrentRegion
- ReDim crr(1 To UBound(arr), 1 To 1)
- brr = Sheet2.Range("a2").CurrentRegion
- For j = 2 To UBound(brr, 2)
- d(brr(1, j)) = j
- Next
- For i = 1 To UBound(arr)
- x = d(arr(i, 1))
- For i2 = 1 To UBound(brr)
- If brr(i2, x) = arr(i, 2) Then crr(i, 1) = brr(i2, 1): Exit For
- Next
- Next
- Range("c4").Resize(UBound(crr)) = crr
- End Sub
复制代码 |
|