要通过Excel VBA命令按钮删除多行

Question

我有一个带有命令按钮的Excel工作表来选择和删除一行。 只能在第12行后删除行。下面是我的代码有： -

Sub Button_delete_row() 
If ActiveCell.Row > 12 Then 
ActiveSheet.Unprotect "xxxx" 
Rows(ActiveCell.Row).Delete 
ActiveSheet.Protect "xxxx", True, True 
End If 
End Sub 

与我的命令按钮上面的代码中，我可以通过鼠标点击删除高亮选择只有一行。 我的问题是我想要通过用鼠标拖动突出显示并单击命令按钮来删除这些行来选择多行。

Answer 1

也许使用以下？

Selection.EntireRow.Delete 

您可以选择多个单元格，点击按钮，关联的行将被删除。