Excel VBA需求：A列含*时隐藏对应G列相同值的所有行

问题根源 #

你当前代码用EntireRow.Hidden = True手动隐藏行，这种隐藏和Excel自动筛选的隐藏是独立机制——自动筛选只会识别自身触发的隐藏行，手动隐藏的行依然会出现在筛选结果里，这就是问题所在。

优化方案：用自动筛选实现需求 #

正确的做法是先收集所有需要隐藏的G列值（即A列为*的行对应的G列内容），然后通过自动筛选把这些值对应的行全部隐藏，这样筛选器就能正确识别这些隐藏行。

优化后的VBA代码 #

Sub HideRowsByCriteria()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim hideValues As Collection
    Dim cell As Range
    Dim filterArray() As Variant
    Dim i As Integer
    
    ' 设置目标工作表，避免用ActiveSheet（更稳定）
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set hideValues = New Collection
    
    ' 第一步：收集所有需要隐藏的G列值（A列为*的行对应的G值）
    On Error Resume Next ' 避免重复添加相同值
    For Each cell In ws.Range("A3:A" & lastRow)
        If cell.Value = "*" Then
            hideValues.Add ws.Range("G" & cell.Row).Value, Key:=CStr(ws.Range("G" & cell.Row).Value)
        End If
    Next cell
    On Error GoTo 0
    
    ' 第二步：如果有需要隐藏的值，应用自动筛选
    If hideValues.Count > 0 Then
        ' 将集合转为数组，供筛选使用
        ReDim filterArray(1 To hideValues.Count)
        For i = 1 To hideValues.Count
            filterArray(i) = hideValues(i)
        Next i
        
        ' 先取消现有筛选（如果有的话）
        If ws.AutoFilterMode Then ws.AutoFilterMode = False
        
        ' 对G列应用筛选，隐藏目标值对应的行
        ws.Range("G2:G" & lastRow).AutoFilter Field:=1, Criteria1:=filterArray, Operator:=xlFilterValues
    Else
        ' 如果没有需要隐藏的值，取消筛选
        If ws.AutoFilterMode Then ws.AutoFilterMode = False
    End If
End Sub

代码说明 #

• 用Collection收集需要隐藏的G列值，自动去重，避免重复处理相同值
• 改用自动筛选而非手动隐藏，确保筛选器能正确识别隐藏行
• 先取消现有筛选，避免冲突
• 处理了无需要隐藏值的情况，保证逻辑完整

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