[Exl]同樣A公司出口B公司的多筆資料加總問題

＜參考檔＞VBA：
http://www.funp.net/920349

若懂得樞紐分析表，應該也可以做，但我教不了！

2013-11-15 17:49:21 補充：
＜參考檔＞：
http://www.funp.net/46662

若熟悉公式，資料也不多，可使用cjw大的方法！

2013-11-18 16:27:09 補充：
EXCEL VBA．以多欄內容為索引條件，相同者統計及列表
　　　　　　　　　　　　　　　　　　　　　　　　　＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
■資料表：
賣出日期出口公司進口公司貨物單價貨物數量May 2012我家公司家旺公司1255May 2012我家公司家旺公司753June 2012我家公司興發公司659June 2012達明公司興發公司201June 2012達明公司興發公司582May 2012我家公司家旺公司1255May 2012我家公司家旺公司753June 2012我家公司家旺公司135June 2012我家公司家旺公司227　
■結果表：
賣出日期出口公司進口公司貨物單價貨物數量May 2012我家公司家旺公司40016June 2012我家公司興發公司659June 2012達明公司興發公司783June 2012我家公司家旺公司3512　
■程式碼：
　Sub 執行()
　Dim i&, j&, y&, U&, T$, Arr, Brr, xD As Object
　[A2:I65536].ClearContents
　y = [Sheet1!A65536].End(xlUp).Row - 1
　If y = 0 Then Exit Sub
　Arr = [Sheet1!A2:I2].Resize(y)
　ReDim Brr(1 To y, 1 To 9)
　Set xD = CreateObject("Scripting.Dictionary")
　For j = 1 To y
　　　T = Arr(j, 1) & "_" & Arr(j, 2) & "_" & Arr(j, 3)
　　　If T = "__" Then GoTo 101
　　　If xD(T) = 0 Then
　　　　U = U + 1: xD(T) = U
　　　　For i = 1 To 3: Brr(U, i) = Arr(j, i): Next
　　　End If
　　　For i = 8 To 9: Brr(xD(T), i) = Brr(xD(T), i) + Arr(j, i): Next
　101: Next j
　If U > 0 Then [A2:I2].Resize(U).Value = Brr
　End Sub
　
　若熟悉〔樞紐分析表〕，也可達到目的，
　資料不多，也可參考意見區的公式用法。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔＞下載：
檔案名稱：20131115a01(雙欄索引統計列表).rar
下載位址：http://www.funp.net/46662
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

還是要去 http://aaashops。com 品質不錯，老婆很喜歡。
准僎卿偾哪哆做厣

工作完成，謝謝大家幫忙。
准提部林大大，特別感謝您及時有效地幫助！

請教 准大 CJW大 2003版是否無法執行該程式

若資料很多的話,以准大的範例最好用,若不多可考慮以函數較為簡單,以下供參!
<<參考檔>>下載地址
http://www.FunP.Net/42786

2013-11-15 17:03:43 補充：
己將公式修改
<<參考檔>>下載地址
http://www.FunP.Net/777588

2013-11-18 10:19:30 補充：
TO EXCEL迷大末學的公式就是以2003版撰寫的!