標題: [分享] 合併格數不一樣 計總和後排名 [打印本頁]

---

作者: hcm19522    時間: 2025-11-16 12:02     標題: 合併格數不一樣 計總和後排名

[attach]38276[/attach][attach]38276[/attach]

---

作者: hcm19522    時間: 2025-11-16 12:03

(搜尋 輸入號碼 14542) google網址:https://hcm19522.blogspot.com/

---

作者: Andy2483    時間: 2025-11-20 10:02

本帖最後由 Andy2483 於 2025-11-20 13:48 編輯

回復 1# hcm19522


    謝謝前輩分享此主題,後學藉此帖練習陣列,學習方案如下,請各位前輩指教

執行前:
[attach]38291[/attach]

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

Option Explicit
Sub TEST()
Dim Brr, i&, j%, N&, T$
Brr = Range([B2], [F65536].End(3))
For i = 1 To UBound(Brr)
   T = Brr(i, 1)
   If T <> "" Then
      N = N + 1
      Brr(N, 1) = T
      Brr(N, 2) = 0
   End If
   For j = 3 To UBound(Brr, 2): Brr(N, 2) = Brr(N, 2) + Brr(i, j): Next
Next
With [I2].Resize(N, 2)
   .Value = Brr
   .Sort KEY1:=.Item(2), Order1:=2, Header:=2
   .Item(1, 0).Resize(N) = "=""第"" & Row()-1 & ""名"""
End With
End Sub

---

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