|
发表于 2012-9-27 17:34
|
显示全部楼层
本楼为最佳答案
- Sub a()
- Dim a, B, d, i
- a = Sheet1.Range("a1").CurrentRegion
- B = Sheet2.Range("a1").CurrentRegion
- Set d = CreateObject("scripting.dictionary")
- For i = 2 To UBound(a)
- d(a(i, 3)) = a(i, 5) & "|" & a(i, 1)
- Next i
- For i = 2 To UBound(B)
- If Len(d(B(i, 1))) Then
- B(i, 2) = Split(d(B(i, 1)), "|")(0)
- B(i, 3) = Split(d(B(i, 1)), "|")(1)
- End If
- Next i
- With Sheet2
- .Range("b2:C" & UBound(B)).ClearContents
- .[a1].Resize(i - 1, 3) = B
- End With
- End Sub
复制代码
求助2.rar
(289.26 KB, 下载次数: 24)
|
|