Excel怎样实现用宏筛选多种不包含呢？

o0star0o

Excel正常的手工操作就只能两种不包含，用VBA宏怎么实现不包含两个以上呢？
比如：
筛选不包含：A或B或C或D


详情见附件表

liulang0808

可以循环遍历，对应列逐个判断，然后隐藏

zpy2

正则表达式？

not RegExp('A|B|C',字符串)

o0star0o

zpy2 发表于 2022-11-30 10:59
正则表达式？

not RegExp('A|B|C',字符串)

这个能用宏实现吗？

zpy2

o0star0o 发表于 2022-11-30 16:32
这个能用宏实现吗？

https://club.excelhome.net/forum.php?mod=viewthread&tid=1400918&highlight=%D5%FD%D4%F2%B1%ED%B4%EF%CA%BD&mobile=
应该可以的

o0star0o

zpy2 发表于 2022-11-30 16:52
https://club.excelhome.net/forum.php?mod=viewthread&tid=1400918&highlight=%D5%FD%D4%F2%B1%ED%B4%EF ...

这个好像不行，我添加了附件了，麻烦看下呢

o0star0o

zpy2 发表于 2022-11-30 10:59
正则表达式？

not RegExp('A|B|C',字符串)

这个怎么用宏实现呢？我加了附件了，麻烦看下呢

o0star0o

liulang0808 发表于 2022-11-30 07:15
可以循环遍历，对应列逐个判断，然后隐藏

我放了附件了，麻烦看下用宏是什么实现的呢

liulang0808

Sub 筛选不包含()
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    ActiveSheet.UsedRange.EntireRow.Hidden = False
    Set Rng = Nothing
    r = ActiveSheet.UsedRange.Rows.Count + 1
    arr = [ab1].Resize(r)
    brr = Split("A,B,C,D,E", ",")
    For j = 3 To r
        For Each x In brr
            If InStr(arr(j, 1), x) > 0 Then GoTo l1
        Next x
            If Rng Is Nothing Then
                Set Rng = Cells(j, "ab")
            Else
                Set Rng = Union(Rng, Cells(j, "ab"))
            End If
l1:
    Next j
    If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
    Application.ScreenUpdating = True
End Sub

liulang0808

筛选不包含的。。。。。