通过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

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