Excel VBA按正负值设置公式时仅负数值分支生效问题排查

代码核心问题 #

• 判断逻辑被硬编码为永远成立：你直接给sunString固定赋值为"-"，后续If InStr(sunString, "-") > 0的判断结果永远为真，Else分支完全没有触发可能。
• 没有实现按单元格正负匹配公式的核心逻辑：你既没有遍历F列的每个单元格做正负判断，也没有给W列的单元格对应设置不同公式，当前代码是直接给整个W列区域批量设置同一个公式，完全不符合需求。
• 语法存在缺陷：With rng3语句没有对应的End With收尾，lRow变量没有提前定义和赋值，代码本身无法完整运行。

修复方案 #

方案1：遍历单元格设置（逻辑直观，适合小数据量） #

Dim wks As Worksheet
Dim lRow As Long
Dim i As Long

Set wks = ThisWorkbook.ActiveSheet
' 获取F列最后一行有数据的行号
lRow = wks.Cells(wks.Rows.Count, "F").End(xlUp).Row

' 逐行判断F列值的正负，设置对应W列公式
For i = 2 To lRow
    If wks.Cells(i, "F").Value < 0 Then
        wks.Cells(i, "W").Formula = "=R" & i & "-U" & i & "-V" & i
    Else
        wks.Cells(i, "W").Formula = "=R" & i & "+U" & i & "+V" & i
    End If
Next i

方案2：批量写入带判断的Excel公式（效率更高，适合大数据量） #

不需要循环，直接给整个W列写入带IF判断的公式即可：

Dim wks As Worksheet
Dim lRow As Long

Set wks = ThisWorkbook.ActiveSheet
lRow = wks.Cells(wks.Rows.Count, "F").End(xlUp).Row

wks.Range("W2:W" & lRow).Formula = "=IF(F2<0,R2-U2-V2,R2+U2+V2)"

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