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"