基于对多个条件的引用对多个列求和- VBA不转换

Sub SumColumnsBasedOnMultipleConditions()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim sumResult As Double
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化求和结果
    sumResult = 0
    
    ' 循环遍历每一行数据
    For i = 2 To lastRow ' 假设数据从第2行开始，第1行是标题行
        ' 判断条件并进行求和
        If ws.Cells(i, 1).Value = "条件1" And ws.Cells(i, 2).Value = "条件2" Then
            sumResult = sumResult + ws.Cells(i, 3).Value ' 假设要求和的列是第3列
        End If
    Next i
    
    ' 输出求和结果
    MsgBox "求和结果为：" & sumResult
End Sub