当然可以优化你的代码！你遇到的重复计算式问题，有两个非常实用的解决思路，既能让代码更简洁易读，还能提升后续维护的效率：

方案1：用变量存储重复的计算式字符串 #

既然那个长计算式重复出现了3次，我们可以先把它提取出来赋值给一个变量，之后在公式里直接引用这个变量就行。这样不仅减少了重复代码，还能避免手动修改时漏改某一处的问题。

修改后的VBA代码示例：

Dim calcFormula As String
For i = 6 To lRow Step 4
    ' 先把重复的计算式存到变量里
    calcFormula = "'" & wsS.Name & "'!" & wsS.Cells(i + 2, 7).Address(False, False) & _
                  "-'" & wsS.Name & "'!" & wsS.Cells(i + 1, 8).Address(False, False) & _
                  "+'" & wsS.Name & "'!" & wsS.Cells(i, 8).Address(False, False)
    
    ' 构建公式时直接引用变量
    wsO.Cells(i, 8).Formula = "=IF(AND('" & wsS.Name & "'!" & wsS.Cells(i + 2, 7).Address(False, False) & ">0," & calcFormula & ">0)," & _
                              calcFormula & ",IF(" & calcFormula & "<0,0," & calcFormula & "))"
Next i

方案2：创建自定义Excel函数（UDF） #

如果你的多个复杂公式都用到这个计算逻辑，更推荐编写自定义函数（User Defined Function, UDF）。这样不管是在VBA里生成公式，还是直接在Excel单元格中输入公式，都能复用这个逻辑，代码可读性会大幅提升。

步骤1：编写UDF #

打开VBA编辑器，插入一个新模块（不能放在工作表代码窗口），然后输入以下代码：

Function CalculateMyValue(gVal As Double, hPrevVal As Double, hCurrVal As Double) As Double
    ' 先计算核心表达式
    Dim calcResult As Double
    calcResult = gVal - hPrevVal + hCurrVal
    
    ' 实现你原公式的逻辑
    If gVal > 0 And calcResult > 0 Then
        CalculateMyValue = calcResult
    ElseIf calcResult < 0 Then
        CalculateMyValue = 0
    Else
        CalculateMyValue = calcResult
    End If
End Function

步骤2：在VBA中使用UDF #

现在你的循环代码可以简化成这样，非常清爽：

For i = 6 To lRow Step 4
    wsO.Cells(i, 8).Formula = "=CalculateMyValue('" & wsS.Name & "'!" & wsS.Cells(i + 2, 7).Address(False, False) & _
                              ",'" & wsS.Name & "'!" & wsS.Cells(i + 1, 8).Address(False, False) & _
                              ",'" & wsS.Name & "'!" & wsS.Cells(i, 8).Address(False, False) & ")"
Next i

额外福利：直接在Excel单元格使用 #

你甚至可以直接在Excel单元格里输入公式，比如：

=CalculateMyValue(Sheet1!G8, Sheet1!H7, Sheet1!H6)

完全替代原来的长嵌套IF公式，可读性拉满！

方案选择建议 #

• 如果只是当前这个循环里需要复用计算式，方案1足够简单高效；
• 如果多个VBA流程或Excel单元格公式都要用到这个逻辑，方案2的复用性更强，长期维护更方便。

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