通过Excel VBA命令button删除多行

我有一个Excel命令button来select和删除一行。 只能在第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 

用我的上面的代码在命令button中，我可以通过用鼠标单击和删除突出显示select只有一行。 我的问题是我想通过用鼠标拖动突出显示select多个行，然后单击命令button来删除这些行。

Answer 1

也许使用以下？

 Selection.EntireRow.Delete 

您可以select多个单元格，单击该button，关联的行将被删除。