插入包含公式的多行

我有一个Excel工作表，其中用户应该能够插入多行，从上面的行中自动包括公式。 我已经为单行编程了以下公式：

Sub Insert_Single_Row() ActiveCell.EntireRow.Copy Tabelle3.Range("A28").EntireRow.Insert End Sub 

不过，我想插入多行，所以我find了这个公式：

 Sub Insert_Multiple_Rows() Dim CurrentSheet As Object For Each CurrentSheet In ActiveWindow.SelectedSheets CurrentSheet.Range("A28:A50").EntireRow.Insert Next CurrentSheet End Sub 

这个公式插入了多个行。 但是，它不会复制插入行上面的行中的公式。

你们有没有想法如何组合这些代码，所以一旦我插入多行的行数到表中插入的行上面的行中的公式被复制到所有这些？

谢谢你的帮助。

Answer 1

坚持你已经有的代码，这应该做的伎俩：

 Sub Insert_Multiple_Rows() Dim CurrentSheet As Object For Each CurrentSheet In ActiveWindow.SelectedSheets CurrentSheet.Range("A28:A50").EntireRow.Insert CurrentSheet.Range("A27:A50").EntireRow.Formula = CurrentSheet.Range("A27").EntireRow.Formula Next CurrentSheet End Sub