返回列表 上一主題 發帖

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

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 »
發表於 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
複製代碼

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題