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

这是你在找什么？

根据单元格值将行插入表中

1 个答案: