想請教各位版大，以下有一function，其作用是將item_range中的項目對number_range
進行累加並回傳第rank_order大之項目名稱，但有時會有兩個項目的累加金額相同，這
時候如果使用match函數則只會取首位，因此會出現第1名和第2名皆為同一項目名稱的問
題。
在下面程式中我if…then的方式進行判斷，雖然可以解決這個問題，不過程式看起來有點
冗長，不知道有沒有更為簡短的寫法? 謝謝!
Function inventory_rank4(item_range As Range, number_range As Range, _
rank_order As Integer) As String
Dim r As Range
Dim ary(10)
Dim w&, dic
Set dic = CreateObject("scripting.dictionary")
For Each r In item_range
If r <> "" Then If Not dic.exists(r.Value) Then _
dic.Add r.Value, r.Value: _
ary(w) = WorksheetFunction.SumIf(item_range, r, number_range): _
w = w + 1
Next
If rank_order = 1 Then
inventory_rank4 = dic.Items()(WorksheetFunction.Match( _
WorksheetFunction.Large(ary, rank_order), ary, 0) - 1)
Else
If WorksheetFunction.Large(ary, rank_order) = _
WorksheetFunction.Large(ary, rank_order - 1) Then
ary(WorksheetFunction.Match(WorksheetFunction.Large(ary, _
rank_order), ary, 0) - 1) = 0
inventory_rank4 = dic.Items()(WorksheetFunction.Match( _
WorksheetFunction.Large(ary, rank_order - 1), ary, 0) - 1)
Else
inventory_rank4 = dic.Items()(WorksheetFunction.Match( _
WorksheetFunction.Large(ary, rank_order), ary, 0) - 1)
End If
End If
End Function

判斷內有重覆出現worksheetfunction.match(....)-1)，這部部是否用個變數來帶入數值

我的邏輯是這樣，如果是要選排名第1的，那就是走原做法;而如果遇到排名第n位與n-1位的金額相同，則將原本會match到位置的金額在陣列中設值為0，然後重新match後就會取到另一個位置;至於其他判斷結果則和排名第1的方式一樣走原做法。

如要數值相同都一起表列的話，可以這樣方式https://imgur.com/DlZvQVghttps://imgur.com/DdGsnqb

受教了，謝謝!