今天跟大家分享一下如何快速利用vba标记选区得的重复值。
工具/原料
- Excel
方法/步骤
- 1
如下图数据区域内含有一部分重复数据，现在我们想要快速找出重复数据并标记填充不同单元格颜色。
- 2
选中这列数据单元格区域
- 3
同时按下Alt+F11，打开vba
- 4
点击sheet1，然后在右边空白区域录入vba代码
- 5
点击【运行】，然后选择【运行子过程/用户窗体】
- 6
就可以发现数据中重复数据已经被标记填充不同的背景颜色了，最后我跟大家分享一下本文这里所使用的vba代码。
'激活工作表事件
'激活工作表，写入除目录外所有表名
'作者：如需Excel vba 代写，请百度方方格子
'------------------------------------------
Sub 标记选区重复值()
On Error Resume Next
Dim rn As Range, first As Range
Dim ColorIdx As Integer
Set d = CreateObject("scripting.dictionary")
Selection.Interior.ColorIndex = 2
ColorIdx = 0
For Each rn In Selection
If rn <> "" Then
If d.exists(rn.Value) Then
Set first = Range(d(rn.Value)) '第一次出现的单元格
If first.Interior.ColorIndex = 2 Then '第一次出现时 未设置过颜色
'----------------------------------
ColorIdx = (ColorIdx + 1) Mod 56 + 1 '颜色可选范围：0~56
If ColorIdx = 2 Then ColorIdx = 3
'----------------------------------
first.Interior.ColorIndex = ColorIdx
Else
ColorIdx = first.Interior.ColorIndex
End If
rn.Interior.ColorIndex = ColorIdx
Else
d.Add rn.Value, rn.Address
End If
End If
Next
End Sub
END
注意事项
- 如有疑问可以点击下方【我有疑问】，与我沟通交流！！