VBA循环及GoalSeek功能求助：批量计算并复制数据至指定工作表

原代码的核心问题 #

• 变量声明语法错误，且未给Output_tab指定具体工作表
• 单元格列引用格式错误（B/C需加引号或用列序号）
• GoalSeek方法调用语法错误
• 复制目标的工作表对象引用写法错误
• 未明确指定Range/Cells所属工作表，易引发激活上下文问题

修正后的完整代码 #

Sub Loop_Seek()
    Dim i As Integer
    Dim Output_tab As Worksheet
    Dim CalcSheet As Worksheet ' 定义计算工作表对象，避免依赖激活状态
    
    ' 赋值工作表对象，根据实际表名修改
    Set Output_tab = ThisWorkbook.Worksheets("Output_tab")
    Set CalcSheet = ThisWorkbook.Worksheets("计算工作表") ' 替换成你的计算表名称
    
    ' 循环处理5组数据（根据需求调整循环范围）
    For i = 1 To 5
        ' 设置选择值到计算表的指定命名区域
        CalcSheet.Range("Selection_C").Value = CalcSheet.Cells(i + 10, "B").Value
        
        ' 初始化GoalSeek的可变单元格值
        CalcSheet.Range("Changeamount").Value = CalcSheet.Cells(i + 10, "C").Value
        
        ' 执行GoalSeek：将TestAmount的值设为0，调整Changeamount单元格
        CalcSheet.Range("TestAmount").GoalSeek Goal:=0, ChangingCell:=CalcSheet.Range("Changeamount")
        
        ' 复制计算表的productvalue区域到Output_tab的指定位置
        CalcSheet.Range("productvalue").Copy Destination:=Output_tab.Cells(i + 2, "D")
    Next i
End Sub

关键修改说明 #

• 变量与工作表对象：新增CalcSheet明确指定计算工作表，所有Range/Cells都绑定到具体工作表，避免因当前激活表变化导致的错误；给Output_tab赋值具体工作表对象。
• 单元格引用：列标B/C添加双引号，或改用列序号（如2/3），符合VBA语法要求。
• GoalSeek语法修正：正确使用Range.GoalSeek Goal:=目标值, ChangingCell:=可变单元格的格式，原代码的:=位置错误。
• 复制目标写法：用Output_tab.Cells(i + 2, "D")正确引用目标单元格，原代码的Output_tab (I+2, D)是语法错误。
• 循环范围调整：根据需求改为1 To 5对应5组数据，可根据实际情况修改。

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