vba - 当公式随着行数的增加而不断变化时，如何将公式插入到单元格中？

Question

我已在第 P 列的第二行中输入了这些公式:

=(COUNTIF(A$1:A1,A2)=0)+(COUNTIF(B$1:B1,B2)=0)+(COUNTIF(F$1:F1,F2)=0)

当我将它拖到第 P 列的第三行时，它会变成这样:

 =(COUNTIF(A$1:A2,A3)=0)+(COUNTIF(B$1:B2,B3)=0)+(COUNTIF(F$1:F2,F3)=0)

这是我手动执行的操作。我如何使用VBA 来制作它？我已经尝试过以下方法。

cells(Count,"M").formula= "=(COUNTIF(A$1:A1,A2)=0)+(COUNTIF(B$1:B1,B2)=0)+(COUNTIF(F$1:F1,F2)=0)"

但是它不起作用。它没有改变

"=(COUNTIF(A$1:A1,A2)=0)+(COUNTIF(B$1:B1,B2)=0)+(COUNTIF(F$1:F1,F2)=0)" 

到

"=(COUNTIF(A$1:A2,A3)=0)+(COUNTIF(B$1:B2,B3)=0)+(COUNTIF(F$1:F2,F3)=0)"

当公式随着行数的增加而不断变化时，如何将公式插入到单元格中？

Answer 1

您可以在一行中完成此操作:

range("P2").Copy Destination:=range("P3:P10")

不需要变量、循环等任何东西!