如果公式不断增加，那么如何将公式插入单元格？

我在Pth列的第二行input了这些公式：

=(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") 

不需要variables，循环，任何东西！

Answer 2

正如Joubarc所build议的那样

 Cells(2, "P").Copy For Row = 3 To 10 Cells(Row, "P").Select ActiveSheet.Paste Next Row