Board logo

標題: [發問] 如何讓相同品名加總，並自動顯示？ [打印本頁]
作者: s7659109    時間: 2014-4-16 21:07     標題: 如何讓相同品名加總，並自動顯示？

如何將相同品名加總，並自動顯示在上面的對應欄位中
作者: ML089    時間: 2014-4-16 23:39

回復 1# s7659109

相同品名單價卻不一樣? 這要怎樣統計法
作者: s7659109    時間: 2014-4-17 08:11

大大：
單價用平均單價顯示。
作者: yen956    時間: 2014-4-17 18:02

回復 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    時間: 2014-4-17 23:33

回復 3# s7659109


    用樞紐分析如何?
[attach]18062[/attach]
作者: s7659109    時間: 2014-4-18 08:57

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)