Excel需求：Sheet2按Sheet1结果隐藏行且保留筛选功能

可以实现，核心思路是用辅助列记录Sheet1按钮设置的永久隐藏状态，并通过VBA拦截筛选操作后的事件，自动重新应用这些隐藏规则。以下是具体步骤：

1. 添加辅助列记录永久隐藏标记 #

在Sheet2的最后一列（比如列Z）插入新列，表头命名为「永久隐藏标记」。后续按钮操作时，会把需要始终隐藏的行在该列标记为「是」，需要显示的标记为「否」。

2. 修改原按钮的VBA代码 #

更新原来的按钮逻辑，在隐藏/显示行的同时更新辅助列，并且处理工作表密码保护（确保VBA能正常操作受保护的工作表）：

Sub UpdateQuestionVisibility()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Const PROTECT_PWD As String = "你的工作表密码" '替换为实际密码
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 解锁Sheet2（如果UserInterfaceOnly已设置，可跳过，但保险起见保留）
    ws2.Unprotect PROTECT_PWD
    
    ' 重置辅助列初始状态
    ws2.Range("Z2:Z251").Value = "否" '假设问题行范围是2-251行
    
    ' 遍历Sheet2的问题行，根据Sheet1的关键词设置隐藏状态
    Dim questionRow As Range
    For Each questionRow In ws2.Range("A2:A251") '假设问题内容在A列
        ' 替换为你原有的关键词匹配逻辑
        If InStr(questionRow.Value, ws1.Range("B2").Value) = 0 Then '示例：匹配Sheet1 B2的关键词
            questionRow.EntireRow.Hidden = True
            ws2.Cells(questionRow.Row, "Z").Value = "是"
        Else
            questionRow.EntireRow.Hidden = False
            ws2.Cells(questionRow.Row, "Z").Value = "否"
        End If
    Next questionRow
    
    ' 重新应用当前筛选规则（如果存在）
    If ws2.AutoFilterMode Then
        ws2.AutoFilter.ApplyFilter
    End If
    
    ' 重新保护Sheet2，开启UserInterfaceOnly模式（VBA无需重复解锁）
    ws2.Protect PROTECT_PWD, UserInterfaceOnly:=True
End Sub

3. 拦截筛选操作，自动恢复隐藏规则 #

筛选或清除筛选不会触发Worksheet_Change事件，因此我们用Workbook_SheetCalculate事件（筛选操作会触发工作表计算）来监听Sheet2的筛选变化，自动重新隐藏标记为「是」的行：

打开ThisWorkbook的代码模块，添加以下代码：

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Const PROTECT_PWD As String = "你的工作表密码"
    If Sh.Name <> "Sheet2" Then Exit Sub
    
    Sh.Unprotect PROTECT_PWD
    
    ' 遍历辅助列，重新隐藏需要永久隐藏的行
    Dim markCell As Range
    For Each markCell In Sh.Range("Z2:Z251")
        If markCell.Value = "是" Then
            markCell.EntireRow.Hidden = True
        End If
    Next markCell
    
    Sh.Protect PROTECT_PWD, UserInterfaceOnly:=True
End Sub

4. 修复重启Excel后的保护权限 #

UserInterfaceOnly模式在Excel重启后会失效，因此在Workbook打开时重新设置：

在ThisWorkbook的代码模块中继续添加：

Private Sub Workbook_Open()
    Const PROTECT_PWD As String = "你的工作表密码"
    ' 为两个工作表开启UserInterfaceOnly保护
    ThisWorkbook.Sheets("Sheet1").Protect PROTECT_PWD, UserInterfaceOnly:=True
    ThisWorkbook.Sheets("Sheet2").Protect PROTECT_PWD, UserInterfaceOnly:=True
End Sub

效果说明 #

设置完成后：

• 点击Sheet1的按钮，会按原规则隐藏无关问题，并记录到辅助列；
• 在Sheet2使用筛选时，只会显示符合筛选条件且未被标记为永久隐藏的行；
• 点击「Clear Filter From 'x'」清除筛选后，辅助列标记的无关行仍会保持隐藏状态，不会全部显示。

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