求高手帮忙怎么用VBA删除表格中包含指定内容的所有行?先谢谢了!

Question

如题所述

Answer 1

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追问

谢谢,这个可以!但是 a.EntireRow 这个啥意思

追答

a 是定义的一个range对象变量
a.EntireRow 表示的是a区域的整行

Answer 2

A列中有"指定内容"的单元格所在行会被删除，供参考：
Private Sub CommandButton1_Click()
i = 1
Do Until Cells(i, 1) = ""
If Cells(i, 1) = "指定内容" Then
Cells(i, 1).Delete
i = i - 1
End If
i = i + 1
Loop
End Sub追问

这是删除指定单元格 不是删除指定行