VBA插入一行到如下格式的表

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

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

但插入的行的格式是跟在表头，我能做些什么来使插入的行格式与表区中的行相同？ 正如你所看到的第一行是刚刚插入使用macros，我希望字体的颜色是白色的不是红色的

任何人都可以帮忙

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