|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 zhangcheng6688 于 2024-5-28 14:02 编辑
学习一下字典嵌套,打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
s = arr(i, 2)
If Not d.exists(s) Then
Set d(s) = CreateObject("scripting.dictionary")
End If
If Not d.exists(s & arr(i, 1)) Then
d(s)(arr(i, 1)) = d(s)(arr(i, 1)) + 1
End If
Next
ReDim brr(1 To d.Count, 1 To 2)
For Each vkey In d.keys
m = m + 1
brr(m, 1) = vkey
brr(m, 2) = d(vkey).Count
Next
[f8].Resize(m, 2) = brr
End Sub
|
评分
-
1
查看全部评分
-
|