用VBA刪除表格中包含指定內容的所有行

Sub 刪除百A列等於指度定知內容道專的行屬()
Dim a As Range
endrow = Range("A65536").End(xlUp).Row
For Each a In Range("A1:A" & endrow)
If a = "指定內容" Then
a.EntireRow.Delete
End If
Next
End Sub