VBA需求：根据A列值为每行H列设置不同计算公式

你的代码核心问题在于直接用多单元格区域的Value与单个字符串比较，这会导致判断逻辑失效，且无法针对每行A列的不同值设置对应公式。以下是两种高效的修复方案：

方案一：用工作表IF公式批量写入（推荐，效率更高） #

直接给H列写入带条件判断的工作表公式，让Excel自行逐行处理，无需VBA循环：

Sub totalPnL()
    Dim LR As Long
    LR = Range("D" & Rows.Count).End(xlUp).Row
    
    ' 批量写入带IF判断的公式，逐行识别A列值
    Range("H2:H" & LR).Formula = "=IF(A2=""WIN"",ABS(D2-F2)*G2,-ABS(D2-E2)*G2)"
    
    ' 计算H列有效数据的总和到T2（避免包含空行）
    Range("T2") = Application.WorksheetFunction.Sum(Range("H2:H" & LR))
End Sub

方案二：VBA循环逐行判断（适合复杂扩展逻辑） #

如果后续需要添加更多判断分支，可以用循环逐行处理：

Sub totalPnL()
    Dim LR As Long
    Dim i As Long
    LR = Range("D" & Rows.Count).End(xlUp).Row
    
    ' 逐行遍历处理
    For i = 2 To LR
        Select Case Range("A" & i).Value
            Case "WIN"
                Range("H" & i).Formula = "=ABS(D" & i & "-F" & i & ")*G" & i
            Case "LOSS"
                Range("H" & i).Formula = "=-ABS(D" & i & "-E" & i & ")*G" & i
            Case Else
                Range("H" & i).Value = "" ' 非WIN/LOSS值时清空对应H单元格
        End Select
    Next i
    
    ' 计算H列总和
    Range("T2") = Application.WorksheetFunction.Sum(Range("H2:H" & LR))
End Sub

原代码错误说明 #

1. 多单元格区域无法直接与字符串比较：Range("A2:A" & LR).Value返回的是二维数组，不能直接和"WIN"/"LOSS"这类单个字符串做相等判断，会导致逻辑失效。
2. 分支逻辑覆盖错误：原代码的If-ElseIf只会执行其中一个分支，把整列H设为同一个公式，完全忽略了每行A列的不同值。

内容的提问来源于stack exchange，提问作者yyj2001