|
本帖最后由 sixnu 于 2014-3-22 17:58 编辑
如何根据ID提取SHEET2中的电话,ID号重复的将电话号码按行显示
- Sub Macro1()
- Dim arr, brr, crr, d, i&, j%
- Set d = CreateObject("scripting.dictionary")
- arr = Range("a1").CurrentRegion
- ReDim crr(1 To UBound(arr) - 1, 1 To 10)
- brr = Sheet2.Range("a1").CurrentRegion
- For i = 2 To UBound(brr)
- d(brr(i, 1)) = d(brr(i, 1)) & " " & brr(i, 2)
- Next
- For i = 2 To UBound(arr)
- x = Split(d(arr(i, 1)))
- For j = 1 To UBound(x)
- crr(i - 1, j) = x(j)
- Next
- Next
- Range("b2").Resize(UBound(crr), UBound(crr, 2)) = crr
- End Sub
复制代码
|
|