如何在Excel中突出显示不同颜色的重复值？（转载）

转载连接：如何在Excel中突出显示不同颜色的重复值？

简介在Excel中，我们可以用一种颜色轻松地突出显示一列中的重复值条件格式但是，有时候，我们需要突出显示不同颜色的重复值，以便快速轻松地识别重复项，如下面的截图所示。你怎么

在Excel中，我们可以用一种颜色轻松地突出显示一列中的重复值条件格式但是，有时候，我们需要突出显示不同颜色的重复值，以便快速轻松地识别重复项，如下面的截图所示。你怎么能在Excel中解决这个任务？

事实上，我们没有直接的方式来完成这项工作在Excel中，但是，下面的VBA代码可以帮助你，请做如下：

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

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

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

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

Sub ColorCompanyDuplicates()
'Updateby Extendoffice 20160704Dim xRg As RangeDim xTxt As StringDim xCell As RangeDim xChar As StringDim xCellPre As RangeDim xCIndex As LongDim xCol As CollectionDim I As LongOn Error Resume NextIf ActiveWindow.RangeSelection.Count > 1 ThenxTxt = ActiveWindow.RangeSelection.AddressLocalElsexTxt = ActiveSheet.UsedRange.AddressLocalEnd IfSet xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)If xRg Is Nothing Then Exit SubxCIndex = 2Set xCol = New CollectionFor Each xCell In xRgOn Error Resume NextxCol.Add xCell, xCell.TextIf Err.Number = 457 ThenxCIndex = xCIndex + 1Set xCellPre = xCol(xCell.Text)If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndexxCell.Interior.ColorIndex = xCellPre.Interior.ColorIndexElseIf Err.Number = 9 ThenMsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"Exit SubEnd IfOn Error GoTo 0Next
End Sub

3、然后按 F5 键来运行这个代码，并且一个提示框会提醒你选择你想要突出显示重复值的数据范围，看截图：

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

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

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

转载来源：方元博客。

如何在Excel中突出显示不同颜色的重复值？（转载）相关推荐

计算机获取的系统时间是什么时间格式,【excle怎样获取当前日期格式】如何在EXCEL中显示当天的日期和时间？...
Excel中,如何用函数获取当前日期(即系统日期)的月份值? 个=month(today()). 当月=month(today()),当日=day(today()). =TODAY()获得当前日期,形 ...
Microsoft Excel 教程：如何在 Excel 中使用迷你图显示数据趋势？
欢迎观看 Microsoft Excel 教程,小编带大家学习 Microsoft Excel 的使用技巧,了解如何在 Excel 中使用迷你图显示数据趋势. 迷你图是工作表单元格中直观表示数据的微型 ...
Microsoft Excel 教程：如何在 Excel 中显示或隐藏零值？
欢迎观看 Microsoft Excel 教程,小编带大家学习 Microsoft Excel 的使用技巧,了解如何在 Excel 中显示或隐藏零值. 在 Excel 中有时希望将零值显示为空单元格, ...
Microsoft Excel 教程：如何在 Excel 中显示或隐藏图表图例？
欢迎观看 Microsoft Excel 教程,小编带大家学习 Microsoft Excel 的使用技巧,了解如何在 Excel 中显示或隐藏图表图例. 可以显示或隐藏图表的图例. 显示图例可以向读 ...
单引号数字_办公软件操作技巧010：如何在excel中输入连续多个数字“0”
在日常工作中,我们编辑的excel电子表格内,有时需要输入含有多个"0"的数字,如下图,如果这样的数字比较多的话,从数字键逐个输入"0"就会比较麻烦.今天我们就 ...
怎样在计算机上插入机构图,Win7系统如何在excel中添加word文档结构图？
今天小编给大家分享 Ghost Win7系统在excel中添加word文档结构图的方法,有时候在编辑excel表格时,为了数据能够更加直观展示,会在excel中添加word文档结构图,这样显示的内容 ...
webbrowser控件有数据但页面空白_如何在Excel中实现可以切换不同数据系列的滚珠图?...
▲更多精彩内容,请点击上方Excel小铲子▲ 操作系统版本 Windows 10 64位 Excel版本 Microsoft Excel 2016 64位案例文档下载链接:https://pan. ...
HTML如何实现单元格自动编号,如何在Excel中自动为列编号？
如何在Excel中自动为列编号? 您是否曾经想过在Excel中对列进行编号? 本教程将讨论一些对列进行编号的方法. 通过公式= ROW()自动编号一列如果要根据行号对列进行编号,可以键入此公式 ...
textarea选中行删除_Easy Data Transform如何在Excel中删除重复的行？
Excel用户经常希望删除具有重复值的行.例如,要删除包含重复电子邮件的行,那么Easy Data Transform如何在Excel中删除重复的行?下面一起来看看吧. 先在您的Mac上安装Easy ...

如何在Excel中突出显示不同颜色的重复值？（转载）

如何在Excel中突出显示不同颜色的重复值？（转载）相关推荐

最新文章

热门文章