如何用VBA实现按行循环GoalSeek：固定目标值0，动态行数

以下是适配需求的VBA代码，可直接复制到Excel的VBA编辑器中使用：

Sub RowLoopGoalSeek()
    Dim ws As Worksheet
    Dim loopRows As Integer
    Dim startRow As Integer
    Dim currentRow As Integer
    
    ' 设置目标工作表（可根据实际修改，这里用当前激活工作表）
    Set ws = ActiveSheet
    
    ' 获取F9单元格指定的循环行数
    loopRows = ws.Range("F9").Value
    ' 设置循环起始行
    startRow = 18
    
    ' 按行循环执行GoalSeek
    For currentRow = startRow To startRow + loopRows - 1
        On Error Resume Next ' 处理GoalSeek无法找到解的情况
        ws.Cells(currentRow, "B").GoalSeek _
            Goal:=0, _
            ChangingCell:=ws.Cells(currentRow, "G")
        On Error GoTo 0 ' 恢复默认错误处理
    Next currentRow
    
    MsgBox "GoalSeek循环执行完成", vbInformation
End Sub

关键代码说明 #

• 动态行数获取：通过ws.Range("F9").Value读取指定的循环次数，无需硬编码行数
• 循环范围：从第18行开始，循环loopRows次，覆盖18到18+loopRows-1的所有行
• GoalSeek参数：
  • Set Cell：每行的B列单元格（ws.Cells(currentRow, "B")）
  • To Value：固定为0
  • Changing Cell：每行的G列单元格（ws.Cells(currentRow, "G")）
• 错误处理：加入On Error Resume Next避免因个别行无法找到解导致整个循环中断

注意事项 #

• 确保B列的每个单元格都包含依赖对应行G列的公式，否则GoalSeek无法调整G列值使B列归0
• 如果某行的GoalSeek无法找到可行解（比如公式逻辑无有效解），代码会跳过该行继续执行后续循环
• 运行前需确保Excel已启用宏功能

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