|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub test()
- Dim r%, i%
- Dim arr, brr
- Dim d As Object
- Set d = CreateObject("scripting.dictionary")
- Dim ws As Worksheet
- For Each ws In Worksheets
- If ws.Name <> "统计" Then
- With ws
- arr = .UsedRange
- For i = 2 To UBound(arr)
- For j = 2 To UBound(arr, 2)
- d(arr(i, j)) = d(arr(i, j)) + 1
- Next
- Next
- End With
- End If
- Next
- With Worksheets("统计")
- .UsedRange.Offset(1, 0).Clear
- .Range("a2").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
- End With
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|