Excel表格逐行执行GoalSeek触发VBA运行时错误1004如何解决

核心报错原因 #

• 你的代码中rw变量取的是结构化表格（ListObject）的内部行索引，不是工作表的实际行号，如果你的Table1不是从工作表第1行开始挂载，Range("M" & rw)会定位到完全错误的单元格，要么目标单元格没有关联可变单元格的公式，要么读取到的目标值无效，直接触发GoalSeek执行失败。
• 部分行的目标值本身不存在可行解，Excel在默认迭代次数、精度限制内无法求出符合要求的结果，也会触发该报错中断执行。

修正后的可运行代码 #

Sub BatchGoalSeek()
    Dim lo As ListObject
    Dim tblRow As ListRow
    Dim targetCol As Long, goalCol As Long, changeCol As Long
    Dim seekSuccess As Boolean
    
    ' 绑定结构化表格
    Set lo = Sheet1.ListObjects("Table1")
    ' 匹配表格内对应列的索引，若你的列有自定义名称直接替换引号内内容即可，比如把"M"换成"预计利润"
    targetCol = lo.ListColumns("M").Index
    goalCol = lo.ListColumns("N").Index
    changeCol = lo.ListColumns("E").Index
    
    ' 关闭屏幕更新和临时跳过报错，提升批量执行效率
    Application.ScreenUpdating = False
    On Error Resume Next
    
    For Each tblRow In lo.ListRows
        ' 直接用表格行对象定位单元格，完全避免行号匹配错误
        seekSuccess = tblRow.Range.Cells(, targetCol).GoalSeek( _
            Goal:=tblRow.Range.Cells(, goalCol).Value, _
            ChangingCell:=tblRow.Range.Cells(, changeCol))
        
        ' 若需要记录求解失败的行，取消下方注释，会在对应行O列标注执行状态
        ' tblRow.Range.Cells(, 15) = IIf(seekSuccess, "求解成功", "无可行解")
    Next tblRow
    
    ' 恢复Excel默认设置
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

额外注意事项 #

• 如果执行后仍有大量行标注无可行解，先手动抽查对应行的M列公式是否关联了E列参数，目标值是否在合理取值范围内。
• 也可以调大Excel的迭代配置降低求解失败概率：依次点击文件→选项→公式，调大最大迭代次数、放宽最大误差阈值即可。

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