VBA向量Goal Seek函数报错求助：修改C使A与B向量相等

问题根源分析 #

你的代码报错主要有两个核心问题：

1. 工作表引用不统一：Cells对象未指定所属工作表，当Blad1不是当前活动工作表时，Blad1.Range(Cells(...))会触发引用冲突——Cells默认指向活动表，和外层的Blad1不属于同一个工作表对象。
2. 列范围与需求不符：你描述的A/B/C向量在第153列，但循环里操作的是第3到152列（3+j-1当j从1到150时，列数是3到152），逻辑完全不匹配。

修正后的代码 #

如果你的需求是对第153列的单个单元格执行GoalSeek，代码调整为：

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Blad1")

' 针对第153列的单元格执行单变量求解
ws.Cells(1, 153).GoalSeek _
    Goal:=ws.Cells(3, 153).Value, _
    ChangingCell:=ws.Cells(5, 153)

如果实际需求是批量处理第3到152列（和循环逻辑一致），修正工作表引用后的代码如下：

Dim ws As Worksheet
Dim j As Integer
Set ws = ThisWorkbook.Worksheets("Blad1")

For j = 1 To 150
    ' 统一使用ws引用所有单元格，避免活动表冲突
    ws.Cells(1, 2 + j).GoalSeek _
        Goal:=ws.Cells(3, 2 + j).Value, _
        ChangingCell:=ws.Cells(5, 2 + j)
Next j

（注：2+j等价于3+j-1，写法更简洁）

额外注意事项 #

• 确保每一行第1列的单元格（A向量）确实直接或间接依赖对应行第5列的单元格（C向量），否则GoalSeek会因无法找到解而报错。
• 如果批量处理时部分单元格无法求解，可以添加错误捕获：

On Error Resume Next
ws.Cells(1, 2 + j).GoalSeek _
    Goal:=ws.Cells(3, 2 + j).Value, _
    ChangingCell:=ws.Cells(5, 2 + j)
On Error GoTo 0

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