思路是篩選出不重複資料，再對不重複資料分類求和，單條件求和用SUMIF就可。錄製篩選的宏、去重複的宏，再對宏編輯為自己的宏，刪除錄製的宏。Sub test()Dim ls As IntegerDim ll As Integer Dim ss As Integerls = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row "統計A列行數Columns("A:A").SelectApplication.CutCopyMode = FalseActiveSheet.Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("XFD1"), Unique:=True "篩選A列不重複資料，放到最後一列ActiveSheet.Range("XFD:XFD").RemoveDuplicates Columns:=1, Header:=xlNo "去掉篩選出的重複資料，因篩選會自建表頭（EXCEL2016版）ll = Application.WorksheetFunction.CountA(ActiveSheet.Range("XFD:XFD"))Do "對篩選資料分類求和並輸出ss = ss + 1ActiveSheet.Range("C" & ss) = ActiveSheet.Range("XFD" & ss) & "=" & Application.WorksheetFunction.SumIf(ActiveSheet.Range("A:A"), ActiveSheet.Range("XFD" & ss), ActiveSheet.Range("B:B"))Loop Until ss = llEnd Sub百度自動生成序號，VBA中是沒有的。