我需要自定義一個函式，功能是：把一個范圍的單元格的數字做統計，最后顯示出每個數字出現的字數，按第一列為數字，第二列為數字出現的次數顯示出來。下面是我編的function，不起作用，不知道哪里除了問題，請大神們解決一下。PS：老師要求不能用字典功能。。。
Function ss(myarray)
Dim arr(), n%, i, j, coun
n = 0
coun = 1
For i = 1 To UBound(myarray) - 1
If myarray(i) <> "" Then
n = n + 1
ReDim Preserve arr(2, 1 To n)
For j = i + 1 To UBound(myarray)
If myarray(i) = myarray(j) Then
coun = coun + 1
arr(1, n) = myarray(i)
arr(2, n) = coun
myarray(j) = ""
Else
arr(1, n) = myarray(i)
arr(2, n) = coun
End If
Next j
coun = 1
End If
Next i
ss = Application.Transpose(arr)
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/23429.html
標籤：VBA
上一篇：怎樣用VB6編輯PDF檔案并保存