請問Excel能否以姓名為分類，批次儲存工作表，並自動計算金額

Barbital wrote:
依客戶姓名一一作工作表分類，並計算各客戶費用

Barbital wrote:
系統產出EXCEL檔

Barbital wrote:
您好：我公司常需作客(恕刪)

sarcasm wrote:
半自動可以考慮搭配樞紐或 Filter 函數

' 在Sub autofilter()的next 上面改一行，多加2行(只是加總、換位置用，不加也行)


Sub autofilter()

'... 中間略…

'修改這行，分類後多加3列空白
  .UsedRange.Copy Sheets("_" & n & "_").Cells(4, 1) 
'多加2行，在d欄最後一個位置加總
  lastrow = Sheets("_" & n & "_").Cells(Sheets("_" & n & "_").Rows.Count, "A").End(xlUp).Row
  Sheets("_" & n & "_").Cells(lastrow + 1, 4) = WorksheetFunction.Sum(Sheets("_" & n & "_").Range("d5:d" & lastrow))
              

next
'…中間略…

end sub