根据单元格值添加行

Question

我需要有关正在工作的Excel文件的Excel vba编码的帮助。

我想在vba中编写代码，以便它根据单元格值向活动工作表添加行。
例如-如果单元格值（c14值为10），则当单击添加行按钮时，VBA在C2行之后添加10行。

如果单元格值（C14为15，则在C2行之后增加15行）。

要在添加行时从C2行复制格式（将格式从c2行复制到新行。

我还做了一封电子邮件vba，它复制范围并将该范围粘贴到电子邮件中。

我可以添加什么VBA编码，以便在添加10或15个新行时，将自动调整要复制范围的选择。

现在，如果我手动插入10行，则vba正在复制Range("C2:C27") 它不会调整以复制Range("C2:C37")

Answer 1

这会有所帮助

Dim rowsToAdd as Integer
rowsToAdd = Range("C14").Value

Rows("2:2").Copy
Rows("3:3").Resize(rowsToAdd).Insert Shift:=xlDown