VBA代码问题：批量为工作表添加SUM公式失败求错误排查

原代码中的主要问题 #

• 语法错误：Nextrow计算错误：Nextrow = .Range("Q" & .Rows.Count.End(xlUp).Row+1 存在两处问题：
  1. 错误使用.Range获取最后一行，正确写法应为.Cells(.Rows.Count, "Q").End(xlUp).Row来定位Q列最后一个非空行
  2. 缺少闭合括号，导致代码无法编译
• 公式字符串语法错误："=SUM(R4:R")" 中引号位置错误，且SUM范围不完整（未指定结束行）
• 冗余的Find操作：在手动写入"BALANCE"后再搜索它完全没必要，直接使用已知的行号即可
• 代码结构不严谨：With块的使用不够规范，部分语句未利用With简化引用

修正后的代码 #

Sub AddBalanceFormula()
    Dim ws As Worksheet
    Dim nextRow As Long
    Dim searchValue As String
    
    searchValue = "BALANCE"
    
    For Each ws In ActiveWorkbook.Worksheets
        ' 跳过指定工作表
        If ws.Name <> "Control" And ws.Name <> "Combined" Then
            With ws
                ' 获取Q列下一个空行的行号
                nextRow = .Cells(.Rows.Count, "Q").End(xlUp).Row + 1
                ' 在Q列写入BALANCE
                .Range("Q" & nextRow).Value = searchValue
                ' 在相邻R列写入SUM公式（求和R4到BALANCE所在行的上一行）
                .Range("Q" & nextRow).Offset(0, 1).Formula2Local = "=SUM(R4:R" & nextRow - 1 & ")"
            End With
        End If
    Next ws
End Sub

关键修正说明 #

1. 修复Nextrow计算：改用.Cells(.Rows.Count, "Q").End(xlUp).Row +1准确获取Q列下一个空行，避免语法错误
2. 简化公式写入：直接利用已知的nextRow行号构建SUM公式，无需通过Find查找BALANCE的位置，提升效率和可靠性
3. 修正公式字符串：完整指定SUM范围为R4:R[nextRow-1]，确保求和范围正确，同时修复引号位置错误
4. 规范With块使用：所有工作表引用均通过With块简化，代码更简洁易读

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