|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub t()
- Dim i, j, k, d, dd
- Set d = CreateObject("Scripting.Dictionary")
- Set dd = CreateObject("Scripting.Dictionary")
- For i = 2 To [a65536].End(3).Row
- If Not d.Exists(Range("b" & i).Value & Range("c" & i).Value) Then
- dd(Range("b" & i).Value) = dd(Range("b" & i).Value) + 1
- d(Range("b" & i).Value & Range("c" & i).Value) = dd(Range("b" & i).Value)
- End If
- Next i
- For i = 2 To [a65536].End(3).Row
- Range("d" & i) = d(Range("b" & i).Value & Range("c" & i).Value)
- Next i
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|