今天跟大家分享一下如何快速利用vba标记选区得的重复值。
工具/原料
Excel
方法/步骤
1、如下图数据区域内含有一部分重复数据,现在我们想要快速找出重复数据并标记填充不同单元格颜色。
2、选中这列数据单元格区域
3、同时按下Alt+F11,打开vba
4、点击sheet1,然后在右边空白区域录入vba代码
5、点击【运行】,然后选择【运行子过程/用户窗体】
6、就可以发现数据中重复数据已经被标记填充不同的背景颜色了,最后我跟大家抵足谛垴分享一下本文这里所使用的vba代码。'激活工作表事件'激活固嗟喹账工作表,写入除目录外所有表名'作者:如需Excelvba代写,请百度方方格子'------------------------------------------Sub标记选区重复值()OnErrorResumeNextDimrnAsRange,firstAsRangeDimColorIdxAsIntegerSetd=CreateObject("scripting.dictionary")Selection.Interior.ColorIndex=2ColorIdx=0ForEachrnInSelectionIfrn<>""ThenIfd.exists(rn.Value)ThenSetfirst=Range(d(rn.Value))'第一次出现的单元格Iffirst.Interior.ColorIndex=2Then'第一次出现时未设置过颜色'----------------------------------ColorIdx=(ColorIdx+1)Mod56+1'颜色可选范围:0~56IfColorIdx=2ThenColorIdx=3'----------------------------------first.Interior.ColorIndex=ColorIdxElseColorIdx=first.Interior.ColorIndexEndIfrn.Interior.ColorIndex=ColorIdxElsed.Addrn.Value,rn.AddressEndIfEndIfNextEndSub