我保护了excel表 . 第一行是第10行，所有新行都插入到下面 .

我已经在代码下面添加了命令按钮，在底部插入一个新行，并从上面的行复制相同的格式和公式 . 这完全没问题 .

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

但是我不能在行的中间插入一个新行（从上面的行复制相同的格式和公式） .

有人可以编辑我的代码，以便我可以通过鼠标单击突出显示在我想要插入的行中间的任何位置插入新行 .

当然，新行应该在突出显示的单元格下面创建，并使用与上面行相同的格式和公式进行复制 . 非常感谢先生们 .

excel vba excel-vba