|
如何统计一区域内各数字出现的次数
- Sub Macro1()
- Dim w(1 To 12), ww(1 To 12)
- Set d = CreateObject("scripting.dictionary")
- For Each c In [b2:h2]
- x = Split(c, ",")
- For i = 0 To UBound(x) - 1
- s = Val(x(i))
- w(s) = w(s) + 1
- ww(s) = ww(s) + 1
- Next
- Next
- For i = 1 To UBound(w) - 1
- For j = i + 1 To UBound(w)
- If w(i) > w(j) Then p = w(i): w(i) = w(j): w(j) = p
- Next
- Next
- For i = 1 To UBound(w)
- d(w(i)) = ""
- Next
- For Each a In d.keys
- p = ""
- For i = 1 To UBound(w)
- If ww(i) = a Then p = p & "," & Format(i, "00")
- Next
- p2 = p2 & "共" & a & "次:" & Mid(p, 2) & ",(" & Chr(10)
- Next
- [c3] = p2
- End Sub
复制代码
|
|