Во-первых, я предполагаю, что вы используете VBA. Если это не так, это не будет иметь большого смысла.
Я рекомендую просмотреть этот пост, обсуждая проблемы с использованием Solver в VBA.
Чтобы использовать ссылки для настройки Solver (например, SetCell: =), я обнаружил, что это работает, в то время как большинство других методов этого не делают.
Set SetRng = Sheets("Sheet2").Range("A1") SetAddress = Split(SetRng.Address(external:=True), "[")(0) & Split(SetRng.Address(external:=True), "]")(1) SolverOK SetCell:=SetAddress
Где SetAddress - Dim'd в виде строки.