用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