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

s7659109

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

ML089

回復 1# s7659109

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

s7659109

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

yen956

回復 3# s7659109
試試看:

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

複製代碼

Hsieh

回復 3# s7659109


    用樞紐分析如何?

下載 (27.58 KB)

2014-4-17 23:33

s7659109

如何用樞紐分析，是否要用巨集，讓它每次自動產生，不知版主是否是這個意思呢，你可否請版主秀一樞紐分析的製作流程。