在所选单元格或行下方插入新行

时间:2017-05-16 18:44:05

标签: excel vba excel-vba

我已经保护了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

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

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

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

1 个答案:

答案 0 :(得分:0)

Sub AddRow()  
    ActiveSheet.Unprotect "1234" 
    ActiveCell.Offset(1).EntireRow.Insert 
    ActiveCell.Offset(1).EntireRow.Cells.Locked = False 
    ActiveSheet.Protect "1234" 
End Sub