删除范围失败vba的方法

我有2列，我正在对列A和B的每个单元格进行比较，行数为1613，以检查它是否不包含选定数量的string。 然后我尝试删除行，如果它不包含任何string但是我遇到了一个错误Delete method of Range class failed但是我不知道什么是错的

 Sub macro() Dim i As Integer Dim ws As Worksheet Set xSheet = Worksheets("RAW DATA (2)") xSheet.Select For i = 1 To 1613 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 xSheet.Rows(i).Delete End If Next i End Sub 

Answer 1

哦，你近了！ 只要将“EntireRow”限定符（我不知道这是否是正确的术语）添加到该行： xSheet.Rows(i).EntireRow.Delete 。