您现在的位置是:主页 > 资源共享 > 资源共享
如何在Excel中突出显示不同颜色的重复值?
admin2020-11-28【资源共享】人已围观
简介在Excel中,我们可以用一种颜色轻松地突出显示一列中的重复值 条件格式但是,有时候,我们需要突出显示不同颜色的重复值,以便快速轻松地识别重复项,如下面的截图所示。 你怎么
在Excel中,我们可以用一种颜色轻松地突出显示一列中的重复值 条件格式但是,有时候,我们需要突出显示不同颜色的重复值,以便快速轻松地识别重复项,如下面的截图所示。 你怎么能在Excel中解决这个任务?
事实上,我们没有直接的方式来完成这项工作在Excel中,但是,下面的VBA代码可以帮助你,请做如下:
使用VBA代码突出显示具有不同颜色的列中的重复值
1、选择要用不同颜色突出显示重复项的值列,然后按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。
2、点击 插页 > 模块,并将以下代码粘贴到 模块 窗口。
VBA代码:突出显示不同颜色的重复值:
Sub ColorCompanyDuplicates() 'Updateby Extendoffice 20160704 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 键来运行这个代码,并且一个提示框会提醒你选择你想要突出显示重复值的数据范围,看截图:
4、然后点击 OK 按钮,所有重复的值都以不同的颜色突出显示,请参见截图:
很赞哦! ()
相关文章
文章评论

说点什么吧
- 全部评论(0)
(126565165) 评论 织梦图集整合layui上传:非常感谢...
(4568544521) 评论 织梦图集整合layui上传:感谢分享
(653625086) 评论 【织梦评论插件】:问题沃尔特
(1573123400) 评论 Sublime Text3 安装Anaco:同样是这么设置的,但是没有起作用啊
(275033389) 评论 织梦图集整合layui上传:果然还是大神多,正想要这样一个东西,无意中发现,感谢
(408256272) 评论 我们到底需要怎样的:就斤斤计较斤斤计较斤斤计较经济军
(28315700) 评论 【织梦评论插件】:妈的。提取码呢
(12313123) 评论 【织梦评论插件】:顶起顶起img src=/plus/liujiuge-comment/face/wx.gif title=微笑
(1225141300) 评论 火车采集器破解版 :不错不错
(1783967478) 评论 织梦图集整合layui上传:好好好好
dd 评论 安装Photoshop Cs6后,界:怎么打开代码编辑器。。 管理员回复: 你到网上下载一个代码
1817777858 评论 【织梦评论插件】:答复ASFnbsp; 不错
泗阳小哒格 评论 火车采集器破解版 :测试了,可以使用,从火车采集导出到这里也可以导入!多谢!
方元博客是猪 评论 火车采集器破解版 :骗子,这是高铁采集器不是火车采集器
7777777 评论 【织梦评论插件】:怎么私聊 管理员回复: 首页的右上角有我的qq或者微信
zj 评论 如何处理网站陈旧的:真实代发,空包网网站www.danhw.com
651591543@qq.com 评论 自适应手机端表格(:- -怎么用
哼哈 评论 自适应手机端表格(:谢谢,解决了问题,很好用
devil 评论 JS控制li 点击li时自动:点击二级导航,一级导航的样式还是没有了
178876207@qq.com 评论 织梦自定义图片字段:非常好的教程, 这个文件在网上找了几天都解决不了
666 评论 dedecms图集的关键词保:没有XSS过滤不安全,直接在后台目录/config.php中80行加入不过滤的
413466985 评论 【织梦评论插件】:请问多少钱啊 管理员回复: 请私聊我
个 评论 【织梦评论插件】:感谢分享
色弱 评论 【织梦评论插件】:img src=/plus/liujiuge-comment/face/cy.gif title=龇牙
1 评论 人最重要的能力是什:好好学习天天向上
还没有评论,快来抢沙发吧!