vba 筛选某列包含OK,不包含某个字符的单元格

最新推荐文章于 2022-07-25 17:47:09 发布

BugLovers

最新推荐文章于 2022-07-25 17:47:09 发布

阅读量1.7k

点赞数 2

分类专栏： vba 文章标签： vba

本文链接：https://blog.csdn.net/nbspzs/article/details/121242460

版权

vba 专栏收录该内容

10 篇文章 1 订阅

订阅专栏

'筛选某列包含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