我有一张Excel表格,其中用户应该能够插入多行,这些行自动包含上一行中的公式。我为单行编写了以下公式:
jpqlQuery
但是,我想插入多行,所以我找到了这个公式:
Sub Insert_Single_Row()
ActiveCell.EntireRow.Copy
Tabelle3.Range("A28").EntireRow.Insert
End Sub
此公式会插入多个行。但是,它不会从插入行上方的行复制公式。
你们有没有想过如何组合这些代码所以一旦我在工作表中插入多个行数,插入行上方的行中的公式就会被复制到所有代码中?
感谢您的帮助。
答案 0 :(得分: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