返回列表 上一主題 發帖

[分享] 條件計總和

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)

擷取02.JPG

TEST.zip (8.43 KB)

收藏 分享

john2006168
　暱稱: jjjohn

中學生Rank: 2

帖子
178 
主題
65 
精華
0 
積分
252 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2010-5-4 
最後登錄
2024-2-1 
4#
發表於 2024-1-22 17:20 | 只看該作者
謝謝兩位老師的回覆程式碼和EXCEL公式,:lol

TOP

hcm19522

帖子
1391 
主題
4 
精華
0 
積分
1401 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-12-16 

熱烈參與勳章
3#
發表於 2024-1-5 14:04 | 只看該作者
(輸入編號12232) google網址:https://hcm19522.blogspot.com/
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-12-5 
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

        靜思自在 : 我們最大的敵人不是別人．可能是自己。
返回列表 上一主題