Excel VBA开发：遍历C-F列匹配数组精确值并隐藏非匹配行

需求：开发VBA宏，隐藏所有未精确匹配指定字符串的行。精确匹配要求单元格仅包含"HPS"或全角的"ＨＰＳ"，不能混杂其他内容；遍历范围为C、D、E、F列的所有可见单元格，需实现跨列循环检查。

原尝试代码 #

'②
'HPS有りエンドユーザー
    Dim userHPS As Range
    Dim criteriaArray As Variant
    Dim filteredRange As Range
    Dim i, lCell As Long
    Dim match As Boolean
    
    lastRow = Cells(3, "G").End(xlDown).row
    Set userHPS = Range("C3:F" & lastRow).SpecialCells(xlCellTypeVisible)
    criteriaArray = Array("HPS", "ＨＰＳ")
    match = True
    
    Dim i As Integer, icount As Integer
    'Dim FoundCell As Range, rng As Range
    'Dim myRange As Range, LastCell As Range
    
    'Set myRange = Range("C3:F" & lastRow).SpecialCells(xlCellTypeVisible)
    'Set LastCell = myRange.Cells(myRange.Cells.Count)
    'Set FoundCell = myRange.Find(What:=criteriaArray)
    
    For i = 3 To lastRow
        If InStr(1, Range("C3:F" & i), criteriaArray) > 0 Then
            icount = icount + 1
        End If
    Next i
    
    'If icount > 1 Then
        'We will hide it so we can leave all rows containing "HPS" on the sheet. (EntireRow.Hidden = True)
    'End If

原代码存在的问题 #

• InStr函数无法直接接收数组作为查找目标，会触发运行错误
• 循环逻辑错误，Range("C3:F" & i)会选中从第3行到第i行的C-F列，并非检查当前单行的C-F列
• 未实现“精确匹配”逻辑，InStr属于模糊查找，不符合“单元格仅含指定字符串”的要求
• 未正确关联可见单元格的遍历规则，也未完成行隐藏的核心逻辑

修正后的代码（实现跨列循环+精确匹配） #

Sub HideNonHPSRows()
    Dim lastRow As Long
    Dim criteriaArray As Variant
    Dim currentRow As Range
    Dim cell As Range
    Dim hasMatch As Boolean
    
    ' 获取G列从第3行开始的最后一个非空行
    lastRow = Cells(3, "G").End(xlDown).Row
    ' 定义精确匹配的目标字符串
    criteriaArray = Array("HPS", "ＨＰＳ")
    
    ' 遍历C3到C列最后一行的所有可见行
    For Each currentRow In Range("C3:C" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow
        hasMatch = False
        ' 跨列检查当前行的C-F列单元格
        For Each cell In currentRow.Range("C1:F1")
            ' 跳过错误值单元格，避免运行报错
            If Not IsError(cell.Value) Then
                ' 精确匹配判断：单元格值完全等于数组中的某一项
                If UBound(Filter(criteriaArray, cell.Value)) >= 0 Then
                    hasMatch = True
                    Exit For ' 找到匹配项就跳出列循环，提升效率
                End If
            End If
        Next cell
        
        ' 无匹配则隐藏该行，有匹配则保持可见
        currentRow.Hidden = Not hasMatch
    Next currentRow
End Sub

代码逻辑说明 #

1. 先通过G列确定遍历的最后一行边界，确保范围准确
2. 仅遍历可见行，符合需求中“遍历所有可见单元格”的要求
3. 对每行的C-F列逐个单元格检查，用Filter函数实现精确匹配判断
4. 找到匹配项后立即跳出列循环，减少不必要的计算
5. 直接根据匹配结果设置行的隐藏状态，完成核心需求

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