如何在Excel中以不同的颜色突出显示重复的值？

2024-05-10 19:52| 来源: 网络整理| 查看: 265

如何在Excel中以不同的颜色突出显示重复的值？作者：晓阳最后修改时间：2020-12-25 doc不同颜色重复1

在Excel中，我们可以轻松地用一种颜色突出显示一列中的重复值。条件格式，但有时，我们需要用不同的颜色突出显示重复值，以快速，轻松地识别重复项，如以下屏幕截图所示。您如何在Excel中解决此任务？

使用VBA代码以不同的颜色突出显示一列中的重复值

实际上，我们没有直接方法可以在Excel中完成此工作，但是下面的VBA代码可能会为您提供帮助，请执行以下操作：

1。选择要突出显示具有不同颜色的重复项的值列，然后按住 ALT + F11 键打开 Microsoft Visual Basic应用程序窗口。

2. 点击插页 > 模块，然后将以下代码粘贴到模块窗口。

VBA代码：用不同的颜色突出显示重复的值：

Sub ColorCompanyDuplicates() 'Updateby Extendoffice Dim xRg As Range Dim xTxt As String Dim xCell As Range Dim xChar As String Dim xCellPre As Range Dim xCIndex As Long Dim xCol As Collection Dim I As Long On Error Resume Next If ActiveWindow.RangeSelection.Count > 1 Then xTxt = ActiveWindow.RangeSelection.AddressLocal Else xTxt = ActiveSheet.UsedRange.AddressLocal End If Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8) If xRg Is Nothing Then Exit Sub xCIndex = 2 Set xCol = New Collection For Each xCell In xRg On Error Resume Next xCol.Add xCell, xCell.Text If Err.Number = 457 Then xCIndex = xCIndex + 1 Set xCellPre = xCol(xCell.Text) If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex ElseIf Err.Number = 9 Then MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel" Exit Sub End If On Error GoTo 0 Next End Sub

3。然后按 F5 键来运行此代码，然后会出现一个提示框，提示您选择要突出显示重复值的数据范围，请参见屏幕截图：

doc不同颜色重复2

4。然后点击 OK 按钮，所有重复的值都以不同的颜色突出显示，请参见屏幕截图：

doc不同颜色重复1

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。单击此处获取您最需要的功能...

课程描述

阅读更多免费下载... Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。每天将您的工作效率提高50％，并减少数百次鼠标单击！ Excel 的屏幕截图（安装了 Office Tab）

阅读更多免费下载...

【本文地址】

公司简介

联系我们