根據單元格值將行插入表中

Question

我試圖讓宏基於A2的值在表中添加特定數量的行。

例如：

如果A2 = 10，那么當我運行宏時，它應該插入10行。

另外，作為宏的第二部分，我希望它復制以前的單元格具有的公式。

例：

A3= "='Sheet2'!A1"

如果我添加10行，則以下行應該是連續的：

A4= "='Sheet2'!A1"
A5= "='Sheet2'!A2"
A6= "='Sheet2'!A3"
A7= "='Sheet2'!A4"
A8= "='Sheet2'!A5"

等等...

我知道典型的表格拖動將復制單元格，我想確保將公式復制到下一行。

Answer 1

這會將您在A3中顯示的公式復制並粘貼到您在A2中輸入的數字下方。

ActiveWorkbook.Sheets(1).Cells.Range("A4:A" & Rows.Count).ClearContents
For i = 1 To ActiveWorkbook.Sheets(1).Cells(2, 1).Value
ActiveWorkbook.Sheets(1).Cells(3 + i, 1).Formula = ActiveWorkbook.Sheets(1).Cells(3, 1).FormulaR1C1
Next i

這是你想要的？