首页 文章

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

提问于
浏览 次
-1

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

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
excel-vba vba excel

1 回答

  • 1

    看看Range.Copy Method：

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

    和Range.PasteSpecial Method：

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

    有几个paste types . E.g xlPasteFormats 仅粘贴格式 .

    回复于

相关问题