'筛选某列包含OK,不包含12的单元格
Function Filter(rag As Range)
With CreateObject("VBscript.regexp")
rag = Worksheets("sheet1").Range("B1:B6666").
.Global = True
.Pattern = "(.*[OK])(?!.*[12])"
If .Execute(rag).Count = 0 Then
Filter = False
Else
Filter = True
End If
End With
End Function
vba 筛选某列包含OK,不包含某个字符的单元格
最新推荐文章于 2022-07-25 17:47:09 发布