本帖最後由 PKKO 於 2015-10-6 15:43 編輯
想請問各位大大,我Set xd2 = CreateObject("Scripting.Dictionary")
然後下方跑回圈可以得到兩個東西
1:不重複的名稱xd.keys,2:每個名稱出現過的次數
問題是我要如何得到前三名出現過的次數是幾次?以及這前三名是誰?- '輸入次數
- for 迴圈
- xd2(CInt(ar(j))) = xd2(CInt(ar(j))) + 1
- next
以下為小弟的程式碼(攏長慎入!)
我是先將items轉為另一個陣列,在用陣列進行排序大小,然後再跑回圈如果次數相等,就把名稱取出,肯定有更簡易的方法,因此想問問看各位大大的撰寫方法!- '找出最大的三個次數
- aar = Split(Join(xd2.items, ","), ",")
- ReDim cc(0 To UBound(aar), 1 To 1)
- For j = 0 To UBound(aar)
- cc(j, 1) = CInt(aar(j))
- Next
- a1 = 0: a2 = 0: a3 = 0
- For j = 0 To UBound(aar)
- If a1 = 0 Then a1 = Application.WorksheetFunction.Large(cc, j + 1)
- If Application.WorksheetFunction.Large(cc, j + 1) <> a1 And a2 = 0 Then
- a2 = Application.WorksheetFunction.Large(cc, j + 1)
- End If
- If Application.WorksheetFunction.Large(cc, j + 1) <> a1 And Application.WorksheetFunction.Large(cc, j + 1) <> a2 And a3 = 0 Then
- a3 = Application.WorksheetFunction.Large(cc, j + 1)
- End If
- Next
- str1 = a1 & "次:": str2 = a2 & "次:": str3 = a3 & "次:"
- For Each e In xd2.keys
- If xd2(CInt(e)) = a1 Then str1 = str1 & CInt(e) & ","
- If xd2(CInt(e)) = a2 Then str2 = str2 & CInt(e) & ","
- If xd2(CInt(e)) = a3 Then str3 = str3 & CInt(e) & ","
- Next
- If a1 <> 0 Then str1 = Left(str1, Len(str1) - 1)
- If a2 <> 0 Then str2 = Left(str2, Len(str2) - 1)
- If a3 <> 0 Then str3 = Left(str3, Len(str3) - 1)
|
發表於 2015-10-6 15:39
| 
發表於 2015-10-7 22:07
| 