如何使用VBA隐藏工作表全部行并仅显示含指定内容的行

以下提供两种符合需求的实现方式，可根据数据量选用。

方案1：逐行检索实现（完全匹配需求逻辑） #

适合数据量较小的场景，逻辑简单易修改：

Sub 仅显示包含指定内容的行()
    Dim ws As Worksheet
    Dim targetContent As String
    Dim lastRow As Long
    Dim i As Long
    
    ' 可替换为Set ws = Sheets("你的工作表名称")指定具体工作表
    Set ws = ActiveSheet
    ' 引号内替换为你需要检索的目标内容
    targetContent = "待匹配的内容"
    ' 获取工作表已使用区域的最后一行行号，避免遍历无效空行
    lastRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
    
    ' 隐藏所有已使用区域的行
    ws.Rows("1:" & lastRow).Hidden = True
    
    ' 逐行检索匹配
    For i = 1 To lastRow
        ' 如需仅检查指定列，将ws.Rows(i)改为ws.Cells(i, "列名/列号")，例：ws.Cells(i, "A")仅检查A列
        If Not ws.Rows(i).Find(What:=targetContent, LookIn:=xlValues, LookAt:=xlPart) Is Nothing Then
            ' 匹配到目标内容则取消行隐藏
            ws.Rows(i).Hidden = False
        End If
    Next i
End Sub

可调参数说明 #

• LookAt:=xlPart 为模糊匹配，只要单元格包含目标内容即判定匹配；需完全匹配单元格内容时，改为LookAt:=xlWhole
• 可修改targetContent变量的值切换检索目标

方案2：批量匹配实现（适合大数据量场景） #

数据量超过1000行时推荐使用，运行效率远高于逐行遍历：

Sub 批量保留目标可见行()
    Dim ws As Worksheet
    Dim targetContent As String
    Dim findRng As Range
    Dim resultRng As Range
    Dim firstAddr As String
    
    Set ws = ActiveSheet
    targetContent = "待匹配的内容"
    
    ' 先取消所有行隐藏，避免原有隐藏状态干扰匹配
    ws.Cells.EntireRow.Hidden = False
    ' 查找第一个匹配目标内容的单元格
    Set findRng = ws.UsedRange.Find(What:=targetContent, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
    
    If Not findRng Is Nothing Then
        firstAddr = findRng.Address
        Set resultRng = findRng.EntireRow
        ' 查找所有匹配单元格，合并行范围
        Do
            Set resultRng = Application.Union(resultRng, findRng.EntireRow)
            Set findRng = ws.UsedRange.FindNext(findRng)
        Loop While Not findRng Is Nothing And findRng.Address <> firstAddr
        
        ' 隐藏所有行后仅显示匹配行
        ws.UsedRange.EntireRow.Hidden = True
        resultRng.EntireRow.Hidden = False
    Else
        MsgBox "未找到包含指定内容的行"
    End If
End Sub

若需要保留表头行固定可见，可在隐藏所有行的代码后添加ws.Rows(1).Hidden = False，行号按需修改即可。

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