|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
学习一下字典,打扰了
Sub test()
arr = [a2].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
s = arr(i, 1)
s1 = arr(i, 2) & "/" & arr(i, 3)
If Not d.exists(arr(i, 2)) Then
Set d(arr(i, 2)) = CreateObject("scripting.dictionary")
End If
If Not d.exists(s & "|" & s1) Then
d(s & "|" & s1) = ""
d(arr(i, 2))(arr(i, 3)) = d(arr(i, 2))(arr(i, 3)) + 1
End If
Next
brr = [e2].CurrentRegion
For i = 2 To UBound(brr)
For j = 2 To UBound(brr, 2)
brr(i, j) = d(brr(i, 1))(brr(1, j))
Next
Next
[e2].CurrentRegion = brr
End Sub |
评分
-
1
查看全部评分
-
|