用宏吧,我这里简单写了个
Sub aa()
Dim lastRow, i As Integer
Dim col As Integer
Dim s, s1 As String
Dim s2 As String
col = 2 '这里可以设定你要检测的列,因为数据在B列,所以写成了2
s1 = "(省)"
s2 = "(市)"
lastRow = Sheet1.Cells(65536, col).End(3).Row
For i = lastRow To 1 Step -1
s = Sheet1.Cells(i, col).Value
If (InStr(1, s, s1) > 0) Or (InStr(1, s, s2) > 0) Then
Sheet1.Rows(i).Delete
End If
Next
End Sub
追问非常感谢,但是我采纳的时候点错人了- - 不好意思
本回答被网友采纳