列中的重复项在本文中,我们创建了一个宏以突出显示重复的值。

原始数据由不同的汽车名称组成。我们要突出显示重复的条目。

ArrowSampleData

按下“突出显示重复项”按钮以运行宏并突出显示重复项。

ArrowOutput

逻辑解释

我们创建了“ Check_Dups”宏以突出显示重复的条目。它们将以红色突出显示。在宏中,我们检查特定条目的计数。如果大于1,则数据将突出显示。

ArrowOutput

请遵循以下代码

Option Explicit

Sub Check_Dups()

'Declaring variables

Dim Cell As Variant

Dim Source As Range

'Initializing source range

Set Source = Range("A9:A24")

'Removing any previous formatting from the source

Source.Interior.Color = RGB(221, 235, 247)

'Looping through each cell in the source range

For Each Cell In Source



'Checking whether value in cell already exist in the source range

If Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then



'Highlighting duplicate values in red color

Cell.Interior.Color = RGB(255, 0, 0)



End If

Next

End Sub

如果您喜欢此博客,请在Facebook和Facebook上与您的朋友分享。

我们很希望收到您的来信,请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]