公式如何隨着行數的增加而不斷變化，將公式插入單元格中？

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

無需變量，循環，什麼！

Answer 2

正如Joubarc

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