VBA 向表中插入一行，格式如下

Question

我想通过宏在表格的第一行插入一行。我的代码是这样的:

ActiveWorkbook.Worksheets("Sheet1").ListObjects("MeanArea").ListRows.Add _
        Position:=1, _
        alwaysinsert:=True

但是插入行的格式是遵循表头的，如何使插入行的格式与表区域中的行相同？ 正如您所看到的，第一行刚刚使用宏插入，我希望字体颜色为白色而不是红色

请大家帮忙。

Answer 1

尝试用这个更改你的代码

Worksheets("Sheet1").ListObjects("MeanArea").ListRows.Add (1)

上面的代码是在表中第1行上方插入一行。

<小时/>

编辑

这工作正常并且适合您的需求

With Worksheets("Sheet1").ListObjects("MeanArea")
    .ListRows.Add 1
    .ListRows(2).Range.Copy
    .ListRows(1).Range.PasteSpecial xlPasteFormats
End With
Application.CutCopyMode = False