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