vba - 对于每个新行单元格，复制前一行的格式

Question

我有一个代码（按钮），您可以在其中添加新行。不幸的是，新行不继承以前单元格的格式（日期）。现在我需要编写一个代码，我可以在其中粘贴具有前一行格式的新行。

该代码应集成到​​以下代码中：

Private Sub CommandButton1_Click()

Sheets("Vorschlag V+V").Unprotect Password:="verpack21"



Range("C" & Rows.Count).End(xlUp).Select
ActiveCell.EntireRow.Insert

Sheets("Vorschlag V+V").Protect Password:="verpack21", AllowSorting:=True

标签： vba

Answer 1

也许是这样的：

Sub Test()

    With ThisWorkbook.Worksheets("Vorschlag V+V")
        Dim LastRow As Long
        LastRow = .Cells(.Rows.Count, 3).End(xlUp).Row
        
        .Cells(LastRow, 1).EntireRow.Copy
        .Cells(LastRow + 1, 1).EntireRow.PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
    End With

End Sub