删除不包含关键字的行

北漂的猪

关键字的前几个字母都一样是 CSCC/FC 。删除K列不包含这个关键字的整行。我的代码运行不正确，每次都删不完。该如何写
Sub 删除()
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, "k") Like "(CSCC/FC*" = False Then Rows(i).Delete
Next
End Sub

hwc2ycy

加not就成了。
Sub 删除()
For i = 1 To Range("a65536").End(xlUp).Row
If not Cells(i, "k").value  Like "(CSCC/FC*" Then Rows(i).Delete
Next
End Sub

hwc2ycy

另外，删除时应该从下往上删除。
    Dim i
    For i = Range("a65536").End(xlUp).Row To 1 Step -1
        If Not Cells(i, "k").Value Like "(CSCC/FC*" Then Rows(i).Delete
    Next

hwc2ycy

1.     Dim i As Long
   
2.     Application.ScreenUpdating = False
   
3.     For i = Range("a65536").End(xlUp).Row To 1 Step -1
   
4.         If Not Cells(i, "k").Value Like "(CSCC/FC*" Then Rows(i).Delete
   
5.     Next
   
6.     Application.ScreenUpdating = True
   
7.     MsgBox "处理完成"

复制代码

爱疯

假如只有2行，且都满足删除条件。按1楼的方法：
i=1时，删除第1行，第2行下降，“变”成第1行，
i=2时，第2行已跑到第1行去了，现在是其它内容，比如是空，不符合条件，不执行
这样，在循环结束后，跑第1行去了的第2行就没被删，于是就有了“删不完”的情况。

如果倒序循环就不会出现“删不完”的情况了。因为当删除时，该行之前的内容不受删除影响。