如何使用excel vba计算具有相同代码(条件)的行的总和？

Sub CalculateSum()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim codeColumn As Range
    Dim sumColumn As Range
    Dim code As String
    Dim totalSum As Double
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你要操作的工作表名称
    
    ' 设置代码列和总和列的范围
    Set codeColumn = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) ' 将"A"替换为你的代码列的列号
    Set sumColumn = ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row) ' 将"B"替换为你的总和列的列号
    
    ' 循环遍历每一行，计算相同代码的总和
    For Each cell In codeColumn
        code = cell.Value
        If code <> "" Then
            totalSum = totalSum + WorksheetFunction.SumIf(codeColumn, code, sumColumn)
        End If
    Next cell
    
    ' 显示总和结果
    MsgBox "相同代码的总和为：" & totalSum
End Sub