使用VBA根据条件计算行中的单元格值

Sub CalculateCellValueByCondition()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历每一行
    For i = 2 To lastRow ' 假设第一行是表头，从第二行开始计算
        ' 获取当前行的条件值和需要计算的单元格值
        Dim conditionValue As Variant
        Dim cellValue As Variant
        conditionValue = ws.Cells(i, 1).Value ' 假设条件值在第一列
        cellValue = ws.Cells(i, 2).Value ' 假设需要计算的单元格值在第二列
        
        ' 根据条件计算单元格值
        Dim calculatedValue As Variant
        If conditionValue = "条件1" Then
            calculatedValue = cellValue * 2 ' 假设条件1时需要将单元格值乘以2
        ElseIf conditionValue = "条件2" Then
            calculatedValue = cellValue + 10 ' 假设条件2时需要将单元格值加上10
        Else
            calculatedValue = cellValue ' 其他情况下保持原值不变
        End If
        
        ' 将计算后的值写入到第三列
        ws.Cells(i, 3).Value = calculatedValue
    Next i
End Sub