VBA EXCEL, чтобы добавить пустую строку над определенной строкой [OPEN]

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 

Answer 2

Вы можете не просто скопировать и pastespecial вновь вставленной строки данных, скопированный из заголовка ...

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 

что-то в этом роде ...