Excel 带循环目标的VBA Goalseek

我试图设置一个循环的目标搜索，其中设置单元格和更改单元格是固定的，唯一更改的应该是目标

在本例中，我将其放在一个for循环中，目标被引用为Range（“I”&I）

我收到一个错误，说引用无效

Sub OptimizeVal()
Worksheets("TRUCKING PRICING CALC").Activate
Dim i As Long
    For i = 50 To 64
        Range("E55").GoalSeek Goal:=Range("I" & i), ChangingCell:=Range("C75")
        Range("J" & i) = Range("C75").Value
    Next
End Sub

---

我是个傻瓜。。。被引用的单元格，E55应该有一个公式，我不小心擦掉了

最终代码

Sub OptimizeVal()
Worksheets("TRUCKING PRICING CALC").Activate
Dim i As Long
    For i = 50 To 64

        Range("C54") = Range("H" & i).Value

        Range("E55").GoalSeek Goal:=Range("I" & i), ChangingCell:=Range("C75")
        Range("J" & i) = Range("C75").Value
    Next
End Sub