VBA将公式应用于所有不工作的单元格

Question

我需要将公式应用于Sheet2上的所有单元格，并且得到对象'_Global'失败的“Method'Range”错误。

这是我正在使用的VBA代码：

Range("D2:AJ" & LastRow).Formula = "=OFFSET(Sheet1!$D$2,(ROW(1:1)-1)+INT((ROW(1:1)-1)/2)*8,COLUMN(A:A)-1)"

公式从Sheet1复制每2行并跳过8行，当我手动输入时，它正在工作。

你可以告诉我我做错了什么吗？

非常感谢！

Answer 1

您可以尝试将公式设置为第一个单元格，然后根据此答案复制并粘贴到其余单元格中：Set formula to a range of cells