公式复制下来时，将行参考向下移动一行

问题：当我复制Excel公式它正是我所要求的，它复制它。 不过，我想要它添加一个行，所以如果公式是=A1我希望它变成=A2等等。 码：

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

一种select是逐行进行，并把公式放在VB中，但如果可以的话，我宁愿避免。 细节：

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

i之后的数字是列，即A是1等等
公式后面的7是我重复的那一行。

Answer 1

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

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

这也意味着您可以将相同的公式分配给整个列而无需循环。