当公式向下复制时，将行引用向下移动一行

Question

问题：当我复制Excel公式时，它完全符合我的要求，它会复制它。但是我希望它添加一行，所以如果公式是=A1我希望它更改为=A2，依此类推。代码：

    Worksheets("Portal").Cells(i, j).Formula = Worksheets("Portal").Cells(7, j).Formula

一个选项是逐行执行此操作并将公式放在VB中，但如果可以，我宁愿避免这样做。详细说明：

i =每个新行的循环函数
j =每个列/单元的循环函数

i为列后的数字，即A为1，依此类推 公式后面的7是我要复制的行。

Answer 1

简单的方法是使用R1C1版本：

Worksheets("Portal").Cells(i, j).FormulaR1C1 = Worksheets("Portal").Cells(7, j).FormulaR1C1

这也意味着您可以在不循环的情况下将相同的公式分配给整个列。