请各位帮忙做一段代码，查找A列中重复数据的单元格

jsxygshh

在A列中有很多重复的数据，想请各位编写一段代码，将A列中重复的单元格用颜色进行填充，但第一次出现的不做颜色填充。先谢谢了！！！

来生缘

请提供附件。。

LangQueS

建议楼主在论坛搜索“条件格式”相关主题，或压缩上传Excel问题附件并做出模拟结果，以便大家了解和解答。(编辑已发贴即可补充上传附件)

如何发表新话题和上传附件:
http://club.excelhome.net/thread-45649-1-1.html

发帖的技巧:
http://club.excelhome.net/thread-176339-1-1.html

mineshine

仅供参考

Sub FillColor()
    Dim dic As Object, a
    Dim i, n As Long, c As Range, fAdd As String, cor As Integer
    Set dic = CreateObject("scripting.dictionary")
    For i = 1 To [a65535].End(xlUp).Row
        If Not dic.exists(Cells(i, 1).Value & "") Then dic.Add Cells(i, 1).Value, ""
    Next i
    a = dic.keys
    cor = 31
    For i = 0 To dic.Count - 1
        cor = cor + 1
        With Range("A1:A" & [A65536].End(xlUp).Row)
            Set c = .Find(a(i), , , 1)
            If Not c Is Nothing Then
                fAdd = c.Address
                n = 0
                Do
                    n = n + 1
                    If n > 1 Then c.Interior.ColorIndex = cor
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> fAdd
            End If
        End With
    Next i
    Set dic = Nothing
End Sub

jsxygshh

在A列中有很多重复的数据，想请各位编写一段代码，将A列中重复的单元格用颜色进行填充，但第一次出现的不做颜色填充。先谢谢了！！！

来生缘

也不是很多相同的。。。

jsxygshh

十分感谢来生缘,问题解决了,谢谢!