今天跟大家分享一下如何快速利用vba标记选区得的重复值。工具/原料moreExcel方法/步骤1/6分步阅读

如下图数据区域内含有一部分重复数据，现在我们想要快速找出重复数据并标记填充不同单元格颜色。

2/6

选中这列数据单元格区域

3/6

同时按下Alt+F11，打开vba

4/6

点击sheet1，然后在右边空白区域录入vba代码

5/6

点击【运行】，然后选择【运行子过程/用户窗体】

6/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

注意事项

如有疑问可以点击下方【我有疑问】，与我沟通交流！！