按某表的类别对指定工作表进行筛选

headtrain

【表格特点】
后面3张表的前2列（人员代码、人员名称）引用第1张表（分类表）的前2列。注：由于这些表可能有排序，因此每行的顺序可能不一定完全一致。
【需求】
第1步：手工在“分类表”里完成筛选，如第3列性别选“女”；
第2步：点击VBA按钮，将后面的3张表也按性别筛选出“女”的结果（在原表显示即可）。

自己没有思路，因此请教高手：VBA代码该如何写呢？非常感谢！

zax010

Sub zz()
    Dim ce As Range, d, sh As Worksheet
    Set d = CreateObject("Scripting.Dictionary")
    Application.ScreenUpdating = False
    For Each ce In Range("A3:a" & [a65536].End(3).Row).SpecialCells(xlCellTypeVisible)
        d(ce.Value & ce.Offset(0, 1).Value) = ""
    Next
    For Each sh In Sheets
        If sh.Name <> "分类表" Then
            With sh
                .UsedRange.Rows.Hidden = False
                For i = .[a65536].End(3).Row - 1 To 3 Step -1
                    If Not d.exists(.Cells(i, 1).Value & .Cells(i, 2).Value) Then .Rows(i).Hidden = True
                Next
            End With
        End If
    Next
    Application.ScreenUpdating = True
End Sub

zax010

问题有点意思。


按某表的类别对指定工作表进行筛选.rar (25.02 KB, 下载次数: 11)

2017-3-26 15:22 上传

点击文件名下载附件

headtrain

zax010 发表于 2017-3-26 15:23
问题有点意思。

首先非常感谢大师相助！
测试了一下，执行代码后，发现后面3张表改变了表格结构（即：比原表缩小了范围，只是保存了筛选后的结果）。怪我没表达清楚，我希望后面3张表的结构与以前一模一样，只是显示筛选后的结果。不知大师是否还有好的想法来实现呢？

另外，我目前想到了一个变通的做法，即将“分类表”里的筛选结果放到一张新的工作表里，然后以此为条件对后面的3张表执行高级筛选。

期待大师的高见！再次感谢！！！

headtrain

zax010 发表于 2017-3-26 15:23
问题有点意思。

又仔细看了一下您的结果，明白了您的思路：后3张表不需要显示的内容被隐藏起来了。在这种情况下，点击“筛选”里的“清除”按钮无法恢复到之前的状态（如果能实现则太完美了！），但通过取消隐藏可恢复之前的状态。

zax010

headtrain 发表于 2017-3-27 11:12
又仔细看了一下您的结果，明白了您的思路：后3张表不需要显示的内容被隐藏起来了。在这种情况下，点击“ ...

代码运行结果，后面各表除了顺序，其他都实现了。硬要显示顺序和第一张表一样，意义不大。

要取消后面表的行隐藏，再单独增加一段代码：

Sub zzz()
    For Each sh In Sheets
        If sh.Name <> "分类表" Then
            With sh
                .UsedRange.Rows.Hidden = False
            End With
        End If
    Next
End Sub

headtrain

zax010 发表于 2017-3-27 12:43
代码运行结果，后面各表除了顺序，其他都实现了。硬要显示顺序和第一张表一样，意义不大。

要取消后面 ...

收到了，学习中~非常感谢！