ç»è®¡åºåæåå
æ ¼æ°éï¼ç´æ¥ç¨COUNTIFï¼éè¦ç¨VBAçè¯Â·Â·Â·Â·Â·Â·Â·Â·Â·Â·Â·...ä¸è¾¹è¿ä¸ªæ¯ä¸ªè®¡æ°å½æ°ï¼ç¨æ³å°±æ¯å¨åå
æ ¼å
ç´æ¥å=计æ°ï¼åºåï¼å°±å¥½ï¼å·¨å
·ä½ä½ è¦ä»ä¹ä»£ç ï¼èªå·±åç
§ä¸å§ã
Function 计æ°(rng As Range) As String
Dim arr As Range, i As Byte, arr1, arr2, mystr As String
With CreateObject("scripting.dictionary")
For Each cell In rng
.Item(cell.Value) = .Item(cell.Value) + 1
Next cell
arr1 = .keys
arr2 = .items
For i = 0 To UBound(arr2)
mystr = mystr & arr1(i) & arr2(i) & ","
Next
End With
è®¡æ° = Left(mystr, Len(mystr) - 1)
End Function
温馨提示:内容为网友见解,仅供参考