Excel自动隐藏与取消隐藏行：跨工作表匹配名单实现需求

可以实现完全自动的行隐藏/取消隐藏功能，推荐两种方案，根据你的使用习惯选择：

方案一：纯VBA自动触发（无需手动操作） #

这个方案会在你修改Worksheet2的姓名列表时，自动同步更新Worksheet1的行显示状态，同时在激活Worksheet1时也会刷新状态。

步骤： #

1. 按 Alt + F11 打开VBA编辑器。
2. 在左侧工程窗口中找到Worksheet2，双击打开其代码窗口，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改A2:A100区域的姓名时触发
    If Not Intersect(Target, Me.Range("A2:A100")) Is Nothing Then
        UpdateWS1RowVisibility
    End If
End Sub

3. 再找到Worksheet1，双击打开其代码窗口，粘贴以下代码：

Private Sub Worksheet_Activate()
    UpdateWS1RowVisibility
End Sub

4. 插入一个新的模块（右键工程窗口 -> 插入 -> 模块），粘贴通用更新函数：

Sub UpdateWS1RowVisibility()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim cell As Range
    Dim nameList As Range
    
    Set ws1 = ThisWorkbook.Worksheets("Worksheet1")
    Set ws2 = ThisWorkbook.Worksheets("Worksheet2")
    Set nameList = ws2.Range("A2:A100")
    
    ' 先取消所有行的隐藏状态
    ws1.Rows("7:500").Hidden = False
    
    ' 遍历Worksheet1的姓名列表，隐藏无对应信息的行
    For Each cell In ws1.Range("A7:A500")
        If cell.Value <> "" And IsError(Application.Match(cell.Value, nameList, 0)) Then
            cell.EntireRow.Hidden = True
        End If
    Next cell
End Sub

说明： #

• 当你在Worksheet2的A2:A100区域添加/删除姓名时，Worksheet1会自动隐藏没有对应记录的行。
• 每次切换到Worksheet1时，也会自动刷新行的显示状态，确保数据同步。
• 如果Worksheet2的姓名列不是A列，修改代码中的nameList = ws2.Range("A2:A100")为实际列范围即可。

方案二：公式辅助+自动筛选+宏刷新 #

如果你更习惯用公式而非纯VBA，可以用辅助列标记状态，结合自动筛选和宏实现自动刷新：

步骤： #

1. 在Worksheet1的空白列（比如Z列，从Z7开始）输入公式：
   =NOT(ISNA(MATCH(A7, Worksheet2!$A$2:$A$100, 0)))
   这个公式会返回TRUE（姓名在Worksheet2中存在）或FALSE（无对应信息）。
2. 选中Worksheet1的A7:Z500区域，点击「数据」选项卡的「筛选」按钮，开启自动筛选。
3. 在Z列的筛选菜单中，只勾选TRUE，此时无对应信息的行会被隐藏。
4. 按Alt + F11打开VBA编辑器，找到Worksheet2的代码窗口，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A2:A100")) Is Nothing Then
        ' 自动刷新Worksheet1的筛选状态
        ThisWorkbook.Worksheets("Worksheet1").AutoFilter.ApplyFilter
    End If
End Sub

说明： #

• 当你在Worksheet2添加姓名后，Worksheet1的辅助列公式会自动更新，宏会触发筛选刷新，自动显示对应行。
• 这个方案保留了筛选的可视化状态，你可以随时查看筛选条件。

内容的提问来源于stack exchange，提问作者Neil Trotter