如何使用VBA在excel中求出每一类别的总和？

Sub CalculateCategoryTotal()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim categoryColumn As Range
    Dim totalColumn As Range
    Dim category As String
    Dim total As Double
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你的工作表名称
    
    ' 设置类别列和总和列的范围
    Set categoryColumn = ws.Range("A2:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row) ' 将"A"替换为你的类别列所在的列号
    Set totalColumn = ws.Range("B2:B" & ws.Cells(Rows.Count, 2).End(xlUp).Row) ' 将"B"替换为你的总和列所在的列号
    
    ' 循环计算每个类别的总和
    For Each cell In categoryColumn
        category = cell.Value
        total = 0
        
        ' 在总和列中查找相同类别的数值并累加
        For i = 1 To totalColumn.Rows.Count
            If categoryColumn.Cells(i, 1).Value = category Then
                total = total + totalColumn.Cells(i, 1).Value
            End If
        Next i
        
        ' 将总和写入对应类别的单元格
        ws.Range("C" & cell.Row).Value = total ' 将"C"替换为你想要写入总和的列号
    Next cell
End Sub