|
请各位大神帮小弟一下,求助一个vba代码,在column A的号码相同,计算在column C里有几个name
非常感谢!!!
- Sub Macro1()
- Dim arr, d, i&
- Set d = CreateObject("scripting.dictionary")
- arr = Range("b1").CurrentRegion
- For i = 2 To UBound(arr)
- If arr(i, 3) = "" Then arr(i, 3) = "@"
- If Not d.exists(arr(i, 1)) Then
- d(arr(i, 1)) = arr(i, 3)
- Else
- If InStr("," & d(arr(i, 1)) & ",", "," & arr(i, 3) & ",") = 0 Then d(arr(i, 1)) = d(arr(i, 1)) & "," & arr(i, 3)
- End If
- Next
- a = d.keys
- For i = 0 To d.Count - 1
- x = Split(d(a(i)), ",")
- d(a(i)) = UBound(x) + 1
- Next
- For i = 2 To UBound(arr)
- arr(i, 18) = d(arr(i, 1))
- Next
- Range("s1").Resize(UBound(arr)) = Application.Index(arr, 0, 18)
- End Sub
复制代码
|
|