標題: [分享] 條件計總和 [打印本頁]

---

作者: john2006168    時間: 2024-1-3 17:55     標題: 條件計總和

本帖最後由 john2006168 於 2024-1-3 18:09 編輯

想請問一下excel 公式.
條件1:shipment no相同
條件2:Date相同
符合條件:結果CBM總和

---

作者: Andy2483    時間: 2024-1-4 08:02

回復 1# john2006168


    謝謝論壇,謝謝前輩發表此主題與範例
後學藉此帖練習陣列與字典以逆迴圈處裡,學習方案如下,請前輩參考
執行結果:
[attach]37247[/attach]

Option Explicit
Sub TEST()
Dim Brr, Crr, Z, i&, R&, T$
Set Z = CreateObject("Scripting.Dictionary")
Brr = Range([D3], [A65536].End(xlUp))
ReDim Crr(1 To UBound(Brr), 1 To 1)
For i = UBound(Brr) To 1 Step -1
   T = Brr(i, 1) & "|" & Brr(i, 2): R = Z(T)
   If R = 0 Then R = i: Z(T) = R
   Crr(R, 1) = Crr(R, 1) + Brr(i, 4)
Next
[G3].Resize(UBound(Crr)) = Crr
End Sub

---

作者: hcm19522    時間: 2024-1-5 14:04

(輸入編號12232) google網址:https://hcm19522.blogspot.com/

---

作者: john2006168    時間: 2024-1-22 17:20

謝謝兩位老師的回覆程式碼和EXCEL公式,:lol

---

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