標題: 重複值排序問題 [打印本頁]

---

作者: eric7765    時間: 2024-1-28 14:20     標題: 重複值排序問題

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

[attach]37360[/attach]

---

作者: hcm19522    時間: 2024-1-29 10:29

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

---

作者: eric7765    時間: 2024-1-29 11:47

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

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

---

作者: 准提部林    時間: 2024-1-29 12:35

陣列公式(三鍵輸入)//
=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    時間: 2024-1-29 15:04

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

---

作者: Andy2483    時間: 2024-1-29 15:34

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

執行結果:
[attach]37377[/attach]

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

---

作者: 准提部林    時間: 2024-1-29 16:01

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)