重複值排序問題

eric7765

請教前輩們
我想排列前五大對應的編號 請問有甚麼公式能解決遇到重複的問題
如圖 從左邊開始算的公式 如何在D10:H10顯示
         從右邊開始算的公式 如何在D11:H11顯示
麻煩各位了
重複排序.rar (7.67 KB)

下載次數: 5

2024-1-28 14:20

下載 (49.55 KB)
5

2024-1-28 14:19

准提部林

回復 5# eric7765


陣列公式//
左排
=INDEX($B$4:$L$4,MOD(-LARGE($B$3:$L$3/1%%-COLUMN($A:$K),COLUMN(A$1)),100))

右排
=INDEX($B$4:$L$4,MOD(LARGE($B$3:$L$3/1%%+COLUMN($A:$K),COLUMN(A$1)),100))

Andy2483

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列.字典.Large().Small(),學習方案如下,請各位前輩指教
執行前:

下載 (66.75 KB)

2024-1-29 15:33

執行結果:

下載 (70.97 KB)

2024-1-29 15:34

Option Explicit
Sub TEST()
Dim Brr, Z, j%
Set Z = CreateObject("Scripting.Dictionary")
Brr = Range([B3], Cells(4, Columns.Count).End(xlToLeft))
For j = 1 To UBound(Brr, 2)
   Z(Val(Brr(1, j)) - 10 ^ -3 * j) = Brr(2, j)
   Z(-Val(Brr(1, j)) - 10 ^ -3 * j) = Brr(2, j)
Next
For j = 1 To UBound(Brr, 2)
   Brr(1, j) = Z(Application.Large(Z.Keys, j))
   Brr(2, j) = Z(Application.Small(Z.Keys, j))
Next
[D13].Resize(2, UBound(Brr, 2)) = Brr
End Sub

eric7765

回復 4# 准提部林
謝謝准大
可以另外跟您請教 假設 我單純需要從左開始排列 跟 單純從右開始排列的話 公式應該如何修改 謝謝您

准提部林

陣列公式(三鍵輸入)//
=INDEX($B$4:$L$4,ABS(MOD(LARGE($B$3:$L$3/1%%+COLUMN($A:$K)*-1^MOD(ROW(A1),2),COLUMN(A$1)),100*-1^MOD(ROW(A1),2))))

右拉/下拉

eric7765

[attach]37364[/attach]回復
感謝 請問這是要用陣列的方式嗎

hcm19522

(輸入編號12351) google網址:https://draft.blogger.com/blog/posts/9094075214774179359