|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub test()
- arr = Range("A1").CurrentRegion
- Set d = CreateObject("Scripting.Dictionary")
- For i = 2 To UBound(arr)
- If Not d.exists(arr(i, 1)) Then
- d(arr(i, 1)) = arr(i, 2)
- Else
- d(arr(i, 1)) = d(arr(i, 1)) & "-" & arr(i, 2)
- End If
- Next
- k = d.keys
- t = d.items
- [G1].Resize(1, 3) = Array("Component", "Source1", "Source2")
- [G2].Resize(d.Count, 2) = Application.Transpose(Array(k, t))
- [H2].Resize(d.Count, 1).TextToColumns other:=True, otherchar:="-"
- Set d = Nothing
- End Sub
复制代码 |
|