如何使用 "ByChange:" 多个间接引用且不是数组的变量 运行 求解器函数宏？

How to run solver function macro with "ByChange:" multiple variables that are indirectly referenced and are not an array?

我的目标是将 VBA 中的求解器函数与间接引用的 by change 变量一起使用 Range:("J" & RowNumber1)，这是我正在使用的值循环和 if then 语句迭代查找。 VBA 可以在 ByChange: 中单独声明此变量，但无法正确解决间接引用的声明的单个单独单元格，而是将它们视为数组而不是两个单独的单元格，如下所示。在这种情况下，有没有办法正确使用 VBA 中的求解器函数？谢谢

For J = 20 To 25
    If PC.Cells(J, 8).Value2 = EB Then
    RowNumber1 = J
    VK = PC.Cells(RowNumber1, 10).Value2



        With PC

        SolverReset


        SolverOK setCell:=Range("AF16"), _
        maxMinVal:=3, _
        ValueOf:=DPen, _
        **ByChange:=Range("J" & RowNumber1, "G16")**, _
        Engine:=1, _
        EngineDesc:="GRG Nonlinear"

        SolverAdd CellRef:=Range("AG16"), _
        Relation:=2, _
        FormulaText:=91.8



        SolverSolve UserFinish:=True

ByChange:=Range("J" & RowNumber1 & ",G16"), Engine:=1, _