如果找到字符串，则删除行vba excel

Question

我正在尝试删除Excel文件中不包含特定单词的行。

我遍历B列中的单元格，并检查该单元格值是否包含此字符串，如果没有，则将其删除。

但是，我收到一个错误消息，说范围类的Delete方法失败了 。

Sub macro()

Dim i As Integer, intValueToFind As Integer
Dim ws As Worksheet

Set ws = Worksheets("RAW DATA (2)")

For i = 1 To 500    ' Revise the 500 to include all of your values

    If InStr(Cells(i, 2).Value, "Error") = False Or InStr(Cells(i, 2).Value, "No credentials") = False Or InStr(Cells(i, 2).Value, "Connection Failed") = False Then
        ws.Rows(i).EntireRow.Delete
    End If

Next i

End Sub

Answer 1

您正在混合使用一些方法。

'.EntireRow'是范围的属性，而不是行的属性。

所以你有：

ws.rows(i).EntireRow.Delete

您应该输入以下内容：

ws.Range("B"&i).EntireRow.Delete

但实际上，您可以使用.Row方法之一（只是Delete）简化此过程。 因此，您也可以说：

ws.rows(i).Delete

我都进行了测试，并确认语法正确； 我看不到您的代码有任何其他问题。

Answer 2

修改所有字符串比较，使其更接近，

    If NOT InStr(1, " error no credentials connection failed ", lcase(Cells(i, 2).Value), vbTextCompare) Then

Answer 3

自动筛选比循环更有效

Sub DeleteRows()
    Sheet1.Range("a1:c35").AutoFilter Field:=2, Criteria1:="<>error"
    Sheet1.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Sheet1.UsedRange.AutoFilter
'repeat for each value
End Sub