|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub 统计次数()
- Dim d, i, j, ar, br(), m%
- Set d = CreateObject("Scripting.Dictionary")
- [AV17:AX136] = Empty
- ar = [AS17:AX136]
- For i = 1 To UBound(ar)
- For j = 1 To 3
- s = "'" & ar(i, j)
- If d(s) = "" Then
- m = m + 1
- ReDim Preserve br(1 To 2, 1 To m)
- d(s) = m
- br(1, m) = s
- br(2, m) = 1
- Else
- br(2, d(s)) = br(2, d(s)) + 1
- End If
- Next
- For j = 1 To m
- ar(i, br(2, j) + 3) = br(1, j)
- Next
- m = 0
- d.RemoveAll
- Erase br
- Next
- [AS17].Resize(UBound(ar), 6) = ar
- Set d = Nothing
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|