|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub gj23w98()
- Set d = CreateObject("scripting.dictionary")
- ar = [a1].CurrentRegion
- ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
- For i = 1 To UBound(ar)
- If Left(ar(i, 1), 1) <> 2 And Left(ar(i, 1), 1) <> 9 Then
- If Not d.exists(ar(i, 1)) Then
- m = m + 1
- d(ar(i, 1)) = m
- br(m, 1) = ar(i, 1)
- br(m, 2) = ar(i, 2)
- Else
- br(d(ar(i, 1)), 2) = br(d(ar(i, 1)), 2) & "," & ar(i, 2)
- End If
- End If
- Next
- If m > 0 Then
- Columns(3).NumberFormatLocal = "000000"
- [c1].Resize(m, UBound(br, 2)) = br
- End If
- End Sub
复制代码 |
|