判断A列单元格是否含特定字符串

jsfc

A列行数随机，如：
1、单元格含“%”且不含“|”的，则删除单元格
2、单元格含“%”且含“|”的，则保留单元格数据
3、单元格不含“%”也不含“|”的，则保留单元格数据

ligh1298

是这样吧？

Sub test()
        Application.DisplayAlerts = False
        Application.ScreenUpdating = False
        r = [a65536].End(3).Row
        For i = r To 3 Step -1
                If InStr(Cells(i, 1), "%") > 0 And InStr(Cells(i, 1), "|") = 0 Then
                        Rows(i).Delete
                End If
        Next i
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
End Sub

weare2

试一试！！！！！

jsfc

ligh1298 发表于 2019-9-25 16:52
是这样吧？

Sub test()

谢谢，是这样的效果

周义坤

1. Sub St()
   
2.    Dim rng As Range, rg As Range
   
3.      For Each rng In Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row)
   
4.           If rng.Value Like "*%*" And Not rng.Value Like "*|*" Then
   
5.              If rg Is Nothing Then
   
6.                 Set rg = rng
   
7.              Else
   
8.                Set rg = Union(rg, rng)
   
9.              End If
   
10.           End If
    
11.      Next rng
    
12. If Not rg Is Nothing Then
    
13.   rg.EntireRow.Delete
    
14. End If
    
15. Set rg = Nothing
    
16. End Sub
    

复制代码