通过辅助列隐藏可见重复单元格的技术实现求助

你当前的代码通过直接隐藏行处理重复项，但Excel的AutoFilter会重置所有手动隐藏的行。改用辅助列标记重复项后再筛选，就能让隐藏状态和筛选规则绑定，不会被后续操作打乱。

实现代码 #

Function MarkAndFilterDuplicates(procRng As Range)
    Dim auxCol As Range
    Dim arng As Range, C As Range
    Dim dict As New Scripting.Dictionary
    Dim ws As Worksheet
    
    Set ws = procRng.Worksheet
    ' 指定辅助列（默认用目标区域右侧第一列，可自行修改列位置）
    Set auxCol = ws.Cells(procRng.Row, procRng.Column + procRng.Columns.Count).Resize(procRng.Rows.Count)
    
    ' 清理辅助列原有内容和筛选状态
    auxCol.ClearContents
    ws.AutoFilterMode = False
    
    ' 写入辅助列标题（可选，便于识别）
    auxCol.Cells(1).Value = "保留标记"
    
    ' 获取当前可见单元格范围，捕获无可见单元格的情况
    On Error Resume Next
    Set arng = procRng.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If arng Is Nothing Then
        MsgBox "没有有效可见范围"
        Exit Function
    End If
    
    ' 遍历可见单元格，标记重复项
    For Each C In arng.Cells
        If Not dict.Exists(C.Value) Then
            dict.Add C.Value, vbNullString
            ' 首次出现的行标记为True
            auxCol.Cells(C.Row - procRng.Row + 1).Value = True
        Else
            ' 重复行标记为False
            auxCol.Cells(C.Row - procRng.Row + 1).Value = False
        End If
    Next C
    
    ' 筛选辅助列，仅显示标记为True的行
    auxCol.AutoFilter Field:=1, Criteria1:="=TRUE"
End Function

关键说明 #

• 辅助列位置：默认用目标区域右侧第一列，若要固定列（比如Z列），可修改为Set auxCol = ws.Columns("Z").Resize(procRng.Rows.Count).Offset(procRng.Row - 1)
• 标记逻辑：用字典记录首次出现的值，仅保留第一个出现的行，其余重复行标记为False
• 筛选绑定：通过AutoFilter锁定显示状态，后续其他列的筛选操作不会重置这个规则，重复行始终保持隐藏
• 异常处理：捕获了无可见单元格的情况，避免运行报错

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