VBA Excel 更改公式內的列

Question

我在循環中有一個公式。

For x = 0 To dataLastColumn - 1
    wsModel.Cells(startCell + 3, 2 + x).Formula = "=(($B$34*B33)/B30)*B31"
Next x

對於每個 x，我想更改下一個的列。 例如：如果 x = 1，那么我想要的公式將是 -

wsModel.Cells(startCell + 3, 2 + 1).Formula = "=(($B$34*C33)/C30)*C31"

如果 x = 2

wsModel.Cells(startCell + 3, 2 + 2).Formula = "=(($B$34*D33)/D30)*D31"

有沒有辦法改變這樣的列？

Answer 1

我試試這個它的工作

sModel.Cells(startCell + 3, 2 + x).Resize(, dataLastColumn-1).Formula = "=(($B$34*B33)/B30)*B31"