我保护了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
但是我不能在行中间插入一个新行(从上面的行复制相同的格式和公式)。
有人可以编辑我的代码,以便我可以通过单击鼠标突出显示在行中间的任何位置插入新行。
当然,应该在突出显示的单元格下方创建新行,并使用与上一行相同的格式和公式进行复制。
最佳答案
Sub AddRow()
ActiveSheet.Unprotect "1234"
ActiveCell.Offset(1).EntireRow.Insert
ActiveCell.Offset(1).EntireRow.Cells.Locked = False
ActiveSheet.Protect "1234"
End Sub
关于excel - 在所选单元格或行下方插入新行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/44009256/