紧急求助！如何从excel不同列中含有字符c的行筛选出来保留，其他删除？

szj234

如表，如何从excel不同列中含有字符c的行筛选出来保留，其他删除？非常感谢各位大侠！

3190496160

Sub 筛选()
Application.ScreenUpdating = False
Dim rng As Range
With Sheet1
    ar = .[a1].CurrentRegion
    Dim br()
    ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
    r = UBound(ar, 2)
    For i = 1 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            m = Application.CountIf(.Range(.Cells(i, 1), .Cells(i, r)), "c")
            If m = 0 Then
                If rng Is Nothing Then
                    Set rng = .Rows(i)
                Else
                    Set rng = Union(rng, .Rows(i))
                End If
            End If
        End If
    Next i
    If Not rng Is Nothing Then rng.Delete
End With
Application.ScreenUpdating = True
End Sub

szj234

3190496160 发表于 2020-4-19 09:20
Sub 筛选()
Application.ScreenUpdating = False
Dim rng As Range

非常感谢，谢谢老师！