VBA EXCEL在特定行上方添加空行[打开]

Question

我正在尝试编写一些 VBA，它允许按钮添加一个空行，保持相同的格式，就在 SUM 公式所在的行上方。

到目前为止，我创建了一个空行，但我不知道如何实现代码以让新行继承 same 格式样式（包括边框和格式单元格）。

到目前为止我的代码是：

    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

类似的...