返回列表 上一主題 發帖

重複值排序問題

重複值排序問題

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

5

55.png
2024-1-28 14:19

隨意窩 "EXCEL迷"  blog  或https://hcm19522.blogspot.com/ EXCEL函數

TOP

本帖最後由 eric7765 於 2024-1-29 11:53 編輯

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

TOP

陣列公式(三鍵輸入)//
=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))))

右拉/下拉

TOP

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

TOP

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列.字典.Large().Small(),學習方案如下,請各位前輩指教
執行前:
20240129_1.jpg
2024-1-29 15:33


執行結果:
20240129_2.jpg
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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 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))

TOP

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題