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

[發問] 如何讓相同品名加總，並自動顯示？

s7659109

中學生 Rank: 2

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-4-16 21:07 | 只看該作者

[發問] 如何讓相同品名加總，並自動顯示？

如何將相同品名加總，並自動顯示在上面的對應欄位中

問題23.rar (7.09 KB)

樓主熱帖

希望支持!

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2014-4-16 23:39 | 只看該作者

回復 1# s7659109

相同品名單價卻不一樣? 這要怎樣統計法

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

s7659109

中學生 Rank: 2

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

3^#

發表於 2014-4-17 08:11 | 只看該作者

大大：
單價用平均單價顯示。

希望支持!

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

4^#

發表於 2014-4-17 18:02 | 只看該作者

回復 3# s7659109
試試看:

Private Sub CommandButton1_Click()
Dim i, j, lastRowA, lastRowF As Integer
Dim rng As Range
With Sheets("Sheet1")
lastRowA = .[A65536].End(xlUp).Row '取得欄A最下面非空白列的列號
'用不重覆篩選, 將品名篩選到 [F1]
.[A1].Resize(lastRowA, 1).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.[A1].Resize(lastRowA, 1), CopyToRange:=.[F1], Unique:=True
lastRowF = .[F65536].End(xlUp).Row '取得欄F最下面非空白列的列號
Set rng = .[F1].Resize(lastRowF, 1)
For i = 2 To lastRowA
'取得欄A的品名對應到欄F的品名的列號
.[E2] = Application.Match(.Cells(i, 1), rng, 0)
.Cells(.[E2], 7) = .Cells(.[E2], 7) + .Cells(i, 2) '數量加總
.Cells(.[E2], 9) = .Cells(.[E2], 9) + .Cells(i, 4) '金額加總
Next
'算單價(略,改用公式即可)
End With
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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