要通過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 

您可以選擇多個單元格，點擊按鈕，關聯的行將被刪除。