添加新行并复制相同的格式和公式

Question

我必须通过单击命令按钮在最后一行下面添加新行。新行应具有与上面其他行相同的格式和公式。 上面的行有条件格式，颜色，下拉列表，数据验证，固定行高和公式。创建新行时，应自动复制所有这些内容。工作表受到保护。 能否请你帮我写一些代码来获得最好的结果。 此表还应允许用户删除所选行。 感谢。

Sub Add_row()
    ActiveSheet.Unprotect
    ActiveSheet.Range("A13").CurrentRegion.Offset(ActiveSheet.Range("A13").CurrentRegion.Rows.Count - 1).Resize(2).EntireRow.FillDown
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowDeletingRows:=True,  AllowSorting:=True, AllowFiltering:=True
End Sub

Answer 1

查看Range.Copy Method：

Worksheets("Sheet1").Range("A1:D4").Copy 'example

和Range.PasteSpecial Method：

Worksheets("Sheet1").Range("D5").PasteSpecial Paste:=xlPasteFormats

有几个paste types。例如，xlPasteFormats仅粘贴格式。