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