VBA Excel 目标搜索循环在命名范围内

Question

我试图创建一个简单的目标搜索宏

我有一个命名范围“Calc_Output”，它选择单元格 F5:M5 我有一个命名范围“Calc_Input”，它选择单元格 F6:M6

现在我想要一个循环有一个循环，目标 seekscell F6s 输入所以 F5s output 为 0。然后重新运行目标搜索，所以它对单元格 G6 和 F6 等执行相同的操作。直到所有输出为 0。

我目前有以下内容：

Dim k As Integer

 For k = 1 To 8

Range("Calc_Output").Cells(1, k).GoalSeek Goal:=0, ChangingCell:=Range("Calc_Input").Cells(1, k)

 Next k

Answer 1

尝试这个

Sub GoalSeekRange()

Dim rng1 As Range, rng2 As Range
Dim i as long

Set rng1 = Range("Calc_Input")
Set rng2 = Range("Calc_Output")

    For i = 1 To rng1.Count
        rng2.Cells(1, i).GoalSeek Goal:=0, ChangingCell:=rng1.Cells(1, i)
    Next
    
End Sub