[已解决]求按指定姓名保留行

eikok

求按指定姓名保留行.zip (10.1 KB, 下载次数: 8)

2022-8-31 09:23 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2022-8-31 09:40

Sub TEST()
    For I = Range("B65536").End(3).Row To 2 Step -1
        If InStr("张三|李四", Cells(I, "B").Value) Then
            GoTo 10
        Else
            Rows(I).Delete
        End If
10  Next
End Sub

跳转到最佳答案楼层

zjdh

Sub TEST()
    For I = Range("B65536").End(3).Row To 2 Step -1
        If InStr("张三|李四", Cells(I, "B").Value) Then
            GoTo 10
        Else
            Rows(I).Delete
        End If
10  Next
End Sub

rlz680926

Sub test()
Dim i As Integer
Dim arr
arr = Range("a1", Range("b65536").End(xlUp))
For i = UBound(arr) To 2 Step -1
    x = UBound(arr)
    p = arr(i, 2)
    m = 0
    If arr(i, 2) = "àîËÄ" Or arr(i, 2) = "ÕÅèy" Then
        m = 1
    End If
   
    If m <> 1 Then
        Range("a" & i).EntireRow.Delete
    End If
  
Next
End Sub