Sub 统计()
Dim d As Object, arr, ar, br, i%, j%, m%, n%, x&, y%, mn&, mx&
[l1:u2] = ""
arr = [f1:f999]
mn = Application.Min(arr): mx = Application.Max(arr)
Set d = CreateObject("scripting.dictionary")
For i = mn To mx
d(i) = 0
Next
For i = 1 To UBound(arr)
For j = 1 To 10
If arr(i, j) <> "" Then
x = arr(i, j)
If d.exists(x) Then d(x) = d(x) + 1
End If
Next
Next
ar = d.items: br = d.keys
'-------------------------------------------插入排序-------------------------------
For i = 0 To UBound(ar)
x = ar(i): y = br(i)
For m = 0 To i - 1
If ar(m) < x Then
For n = i To m + 1 Step -1
ar(n) = ar(n - 1)
br(n) = br(n - 1)
Next
Exit For
End If
Next
ar(m) = x: br(m) = y
Next
'----------------------------------------------------------------------------------
[l1].Resize(2, d.Count) = Application.Transpose(Application.Transpose(Array(br, ar)))
End Sub