Excel – 插入行macros以包含表格格式

目前在我的Excel电子表格中，我无法在选定的行下插入一行。 新的票据添加到电子表格的末尾，所以当我想要添加新的票据时，单击TOTALS行之前的行并单击插入，但是它会进入选定行上方的新行。

这里的屏幕截图显示了我select的单元格33，并单击插入，但上面添加了新行：

当我使用macros代码时，它完美地添加了行：

但是，新行没有格式化以匹配表。 我想调整我的macros来格式化基于表格格式的新行（在这种情况下，它应该已经用蓝色突出显示并且有正确的行）。 双上单元格行也应该坚持整行。

这是我的mecro下面：

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 

如果我不清楚，请告诉我。 任何提示/指南/教程将有所帮助。

Answer 1

如果你只是想添加一个新的行到表中，然后使用：

 ActiveWorkbook.Worksheets(1).ListObjects(1).ListRows.Add