求解结果必须改变多个单元格

我试图运行一个macros，求解结果必须改变多个单元格。 以下是我在Excel 2010中创build的代码：

Dim i As Integer Dim j As Integer For i = 21 To 32 j = 14 SolverOK SetCell:=Cells(i, j), MaxMinVal:=2, ValueOf:=0, ByChange:=Range(Cells(i, 2), Cells(i, 16), Cells(i, 29), Cells(i, 54)) SolverSolve SolverFinish KeepFinal:=1 Next i End Sub 

但我想我有一些语法错误。 你可以帮帮我吗？