物件排序問題"Scripting.Dictionary" - Excel程式區

[發問] 物件排序問題"Scripting.Dictionary"

1^# 跳轉到 »

發表於 2015-10-7 17:21 | 顯示全部帖子

回復 1# PKKO

Sub Test()
Dim xd2: Set xd2 = CreateObject("Scripting.Dictionary")
' '輸入次數
' for 迴圈
' xd2(CInt(ar(j))) = xd2(CInt(ar(j))) + 1
' Next
Dim dicValue2Key: Set dicValue2Key = CreateObject("Scripting.Dictionary")
Dim xItem
For Each x In xd2.keys
xItem = xd2(x)
If Not dicValue2Key.exists(xItem) Then
dicValue2Key(xItem) = x
Else
dicValue2Key(xItem) = dicValue2Key(xItem) & "," & x
End If
Next
Debug.Print "最多次: " & dicValue2Key(Application.WorksheetFunction.Large(dicValue2Key.keys, 1))
Debug.Print "第二多次: " & dicValue2Key(Application.WorksheetFunction.Large(dicValue2Key.keys, 2))
Debug.Print "第三多次: " & dicValue2Key(Application.WorksheetFunction.Large(dicValue2Key.keys, 3))
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。