[英]Insert new row below the selected cell or row
我已經保護了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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.