首页 文章

Excel - 插入行宏以包括表格格式

提问于
浏览
0

目前在我的Excel电子表格中,我无法在所选行下方插入一行 . 新票证将添加到电子表格的末尾,因此当我想要添加新票证时,我会单击TOTALS行之前的行并单击插入,但它会进入所选行上方的新行 .

这里的截图显示我选择了单元格33并单击了插入但上面添加了新行:

enter image description here

enter image description here

当我使用宏代码时,它完美地添加了行:

enter image description here

但是,新行未格式化为与表匹配 . 我想调整我的宏来格式化基于表格式的新行(在这种情况下,它应该以蓝色突出显示并具有正确的行) . 双上部细胞系也应该粘在总行上 .

这是我的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

如果我不清楚,请告诉我 . 任何提示/指南/教程都会有所帮助 .

1 回答

  • 1

    如果您只想在表中添加新行,请使用:

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

相关问题