为每列标记重复

【问题标题】：Mark duplicate for each column为每列标记重复
【发布时间】：2023-01-25 19:26:33
【问题描述】：

是否有任何 VBA 代码来突出显示每列中的重复值？该文件有数千列，我需要检查每一列是否有重复值并标记它们。我可以使用“条件格式->重复值”手动检查每一列

，但花了很多时间。

我试过使用“条件格式->重复值

【问题讨论】：

你的兴趣是什么？在列中的任何位置重复，或者仅在下一列值重复时重复？看起来你想要后者。

标签： excel vba

【解决方案1】：

要突出显示每列的重复项，您可以使用此子 - 您必须通过例如ActiveSheet.Range("B6")

Sub formatDuplicatesPerColumn(rg As Range)

Dim c As Range, uv As UniqueValues

With rg.CurrentRegion
    For Each c In .Columns
        With c.FormatConditions
            .Delete
            Set uv = .AddUniqueValues
            With uv
                .DupeUnique = xlDuplicate
                .Interior.Color = 13551615
            End With
        End With
    Next
End With
            
End Sub

【讨论】：