根据单元格值将行插入 table

Question

我正在尝试让宏根据 A2 的值将特定行数添加到 table。

例如：

如果 A2=10，那么当我运行宏时它应该插入 10 行。

此外，作为宏的第二部分，我希望它复制前面单元格的公式。

示例：

A3= "='Sheet2'!A1"

如果我添加 10 行，那么以下行应该是连续的：

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

等...

我知道 table 的典型拖动会复制单元格，我想确保将公式复制到下一行。

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

这是您要找的吗？

根据单元格值将行插入 table

Insert rows into table based on cell value

excel

vba