Excel宏VBA插入

Question

我正在尝试使用VBA编写一个宏，以在选择上方添加一个新行。 为此，我使用以下内容：

Sheets(1).Select Rows("4:4").EntireRow.Insert

但每当我插入这一新行时，Excel会自动复制高级行格式。 有没有办法插入这个新行复制仅工作表边框？ 谢谢。

Answer 1

我可能错了，但我认为你不能这样做。我的建议是在Insert：

之后做这样的事情

Sheets(1).Select
Rows("4:4").EntireRow.Insert
Rows("4:4").EntireRow.ClearFormats ' <--- ADD THIS
' Call a Sub, e.g. "FormatMyBorders", to format your borders,
' passing the row as a parameter.
FormatMyBorders(Rows("4:4").EntireRow) ' <--- AND THIS

您可以使用其他“技巧”。例如，使用您想要插入新行的位置的所需格式从另一个位置复制/粘贴临时行，然后插入新行（将继承临时行的格式），然后删除临时行。它可能比我上面说的要繁琐得多，但是从长远来看，根据需要设置一个Sub来格式化行边框可能对你有用。