VBA EXCEL在特定行上添加空行

我想写一些VBA，允许button添加一个空行，保持相同的格式，只是在SUM公式所在的行上面。

到目前为止，我创build了一个空行，但我不知道如何实现代码，让新的行inheritance相同的格式样式（包括边框和格式单元格）。

我的代码到目前为止是：

Sub InsertRev() Dim c As Range Set Rng = ActiveSheet.Range("d1:d5000") For dblCounter = Rng.Cells.Count To 1 Step -1 Set c = Rng(dblCounter) If c.Value Like "*TOTAL*" Then c.EntireRow.Insert End If Next dblCounter End Sub 

任何帮助将不胜感激。

Answer 1

您可以为Insert方法指定参数：

 Sub InsertRev() Dim c As Range Set Rng = ActiveSheet.Range("d1:d5000") For dblCounter = Rng.Cells.Count To 1 Step -1 Set c = Rng(dblCounter) If c.Value Like "*TOTAL*" Then c.EntireRow.Insert xlShiftDown, xlFormatFromLeftOrAbove End If Next dblCounter End Sub 

Answer 2

你能不能复制和粘贴从头部复制的新插入的数据行？…

 TheInsertedRange.PasteSpecial Paste:=xlPasteFormats 

就像是：

 Sub InsertRev() Dim c As Range Dim Ptr As Range Set Rng = ActiveSheet.Range("d1:d5000") For dblCounter = Rng.Cells.Count To 1 Step -1 Set c = Rng(dblCounter) If c.Value Like "*TOTAL*" Then Set Ptr = c Ptr.EntireRow.Insert c.Copy Ptr.Offset(-1).PasteSpecial Paste:=xlPasteFormats End If Next dblCounter End Sub 

像那样的…