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

Question

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

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

到目前为止，我的代码是:

    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