帖子: 10
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-5-22
最後登錄: 2024-10-19

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-6-21 11:32 | 只看該作者

請教如何..取同姓名和加總成交金...感謝

.................資料-------
日期姓名成交金
2月1日 aaa          1000
2月2日 bbb 2000
2月3日 aaa          3000
2月4日 ccc          4000
2月5日 aaa          5000
2月7日 aaa          1000
2月8日 bbb 2000
2月9日 aaa          3000
2月10日ccc          4000
2月11日aaa 5000

--- 變成------
姓名成交金
aaa 18000
bbb 4000
ccc          8000
也就是同姓名作加總

樓主熱帖

yes show me money

lalalada

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

11^#

發表於 2012-8-8 14:52 | 只看該作者

回復 2# register313

你好~
剛好需要這功能
不過是一個名稱對應兩個值
我直覺想到用do loop 加上判斷字串完成
結果發現真的太慢了...無法對整個資料庫使用
sumif 可能會快一點可是還要把名稱重複的行刪除也是頗花時間
然後爬文爬到這篇
我自己亂改之後已經能達到想要的功能
(其實就是建立兩個dictionary...有其他更快的作法嗎?)
但想真的了解程式碼含意
不知道能不能麻煩解釋一下各行的意思?
尤其是這句
If Not d.exists(Ar(i, 2)) Then d.Add Ar(i, 2), Ar(i, 3) Else d(Ar(i, 2)) = d(Ar(i, 2)) + Ar(i, 3)
感恩:)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2012-7-18 17:22 | 只看該作者

回復 9# mistery
不用陣列,還有也可以
=SUMIF($B$2:$B$11,E2,$C$2:$C$11)
=SUMPRODUCT(($B$2:$B$11=E2)*($C$2:$C$11))

TOP

mistery

中學生 Rank: 2

帖子: 82
主題: 5
精華: 0
積分: 115
點名: 0
作業系統: Vista
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2010-5-1
最後登錄: 2024-12-13

9^#

發表於 2012-7-18 16:38 | 只看該作者

利用 SUM函數+矩陣就可以了~
= { sum ((姓名欄位：姓名欄位 = "某人") * (成交金欄位：成交金欄位)) }

test.zip (2.25 KB)

TOP

lasum

中學生 Rank: 2

帖子: 8
主題: 0
精華: 0
積分: 51
點名: 0
作業系統: XP
軟體版本: Office 2002
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2019-2-21

8^#

發表於 2012-6-22 04:49 | 只看該作者

感謝各位提供的資料…測試都可以執行…
但是出現一個問題…
執行register313大的程式時…要求定義 i …可能是我的版本比較低吧！

走急的人看不見地上的釘子，煩惱的人享受不到幸福的日子。

TOP

alims

中學生 Rank: 2

帖子: 10
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-5-22
最後登錄: 2024-10-19

7^#

發表於 2012-6-21 21:03 | 只看該作者

回復 6# register313

用過了謝謝

yes show me money

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-6-21 17:28 | 只看該作者

回復 3# alims

小計(姓名欄位要先排序)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-6-21 17:00 | 只看該作者

回復 3# alims
合併彙算專門解決這類問題

學海無涯_不恥下問

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-6-21 12:55 | 只看該作者

回復 1# alims

Option Explicit
Sub Ex()
Dim Rng As Range
Set Rng = Range("A1").CurrentRegion '設置資料區
Rng.Columns(2).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("IV1:IV2"), CopyToRange:=Range("F1"), Unique:=True
'進階篩選出不重復的姓名到 F欄
Range("G1") = "成交金"
With Range(Range("G2"), Range("F1").End(xlDown).Offset(, 1))
.FormulaR1C1 = "=SUMIF(" & Rng.Columns(2).Address(, , 0) & ", RC[-1] ," & Rng.Columns(3).Address(, , 0) & ")"
'設下公式
.Value = .Value '公式轉換為值也可以不轉換
End With
End Sub

複製代碼

TOP

alims

中學生 Rank: 2

帖子: 10
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-5-22
最後登錄: 2024-10-19

3^#

發表於 2012-6-21 12:04 | 只看該作者

回復 2# register313

好厲害!!! 謝謝了

yes show me money

TOP