![如何在 Excel 中在当前行下方添加新行?](https://linux22.com/image/1461196/%E5%A6%82%E4%BD%95%E5%9C%A8%20Excel%20%E4%B8%AD%E5%9C%A8%E5%BD%93%E5%89%8D%E8%A1%8C%E4%B8%8B%E6%96%B9%E6%B7%BB%E5%8A%A0%E6%96%B0%E8%A1%8C%EF%BC%9F.png)
答案1
如果你将光标放在下面要插入的行上,这将执行此操作并复制该行的格式:
Sub InsertRowBelow() Application.ScreenUpdating = False ActiveCell.Offset(1, 0).EntireRow.Insert ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Application.ScreenUpdating = True End Sub