如何使用AdvancedFilter或其他方法隐藏指定区域内的可见重复单元格？

你遇到的核心问题是：AdvancedFilter无法仅针对可见单元格处理重复项，反而会还原之前隐藏的行；而直接对SpecialCells(xlCellTypeVisible)调用AdvancedFilter会触发1004错误——因为该方法要求数据源是连续或符合规范的数据库区域，非连续的可见区域不满足要求。

以下是两种可行的替代方案：

方法一：用辅助列标记可见行重复项 #

通过临时辅助列标记可见行的重复状态，再筛选隐藏对应行，最后清理辅助列：

Sub HideVisibleDuplicates_WithHelperColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim visibleRng As Range, cell As Range
    Dim valueDict As Object
    
    Set ws = ThisWorkbook.ActiveSheet
    lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    Set valueDict = CreateObject("Scripting.Dictionary")
    
    ' 插入辅助列（示例用B列，可自行调整）
    ws.Columns("B").Insert
    
    ' 遍历可见单元格，标记重复/唯一状态
    For Each cell In ws.Range("A1:A" & lastRow).SpecialCells(xlCellTypeVisible)
        If valueDict.Exists(cell.Value) Then
            cell.Offset(0, 1).Value = "重复"
        Else
            valueDict.Add cell.Value, cell.Row
            cell.Offset(0, 1).Value = "唯一"
        End If
    Next cell
    
    ' 筛选并隐藏重复行
    ws.Range("B1:B" & lastRow).AutoFilter Field:=1, Criteria1:="重复"
    On Error Resume Next ' 避免无重复项时触发错误
    ws.Range("B2:B" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Hidden = True
    On Error GoTo 0
    
    ' 关闭筛选并删除辅助列
    ws.AutoFilterMode = False
    ws.Columns("B").Delete
End Sub

方法二：直接遍历可见单元格隐藏重复行 #

无需辅助列，用字典记录已出现的值，遍历可见单元格时直接隐藏重复行：

Sub HideVisibleDuplicates_Direct()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim visibleCells As Range, cell As Range
    Dim valueDict As Object
    
    Set ws = ThisWorkbook.ActiveSheet
    lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    Set valueDict = CreateObject("Scripting.Dictionary")
    
    ' 获取可见单元格区域，处理无可见单元格的情况
    On Error Resume Next
    Set visibleCells = ws.Range("A1:A" & lastRow).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    If visibleCells Is Nothing Then Exit Sub
    
    ' 遍历可见单元格，隐藏重复行
    For Each cell In visibleCells
        If valueDict.Exists(cell.Value) Then
            cell.EntireRow.Hidden = True
        Else
            valueDict.Add cell.Value, cell.Row
        End If
    Next cell
End Sub

注意事项 #

• 两种方法都只会处理当前可见的行，不会还原之前隐藏的行
• 若使用Scripting.Dictionary报错，可手动添加引用：VBA编辑器→工具→引用→勾选Microsoft Scripting Runtime

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