返回列表下一主題上一主題發帖

[分享] 條件計總和

john2006168

　暱稱: jjjohn

中學生 Rank: 2

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2024-1-3 17:55 | 只看該作者

[分享] 條件計總和

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

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

擷取02.JPG (76.83 KB)

TEST.zip (8.43 KB)

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

2^#

發表於 2024-1-4 08:02 | 只看該作者

回復 1# john2006168

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

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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

hcm19522