VBA判断某列数据重复存在

如果数据重复存在，则将重复数据标红色并提示        

①数据行数确定时：

For i = 2 To 10    ' 数据检查数据从第2行到第10行的数据

        If Application.CountIf(Range("A1:A10" ), Cells(i, 1)) > 1 Then

                Cells(i, 1).Font.Color = 255  
                Cells(i, 5) = Sheet1.Cells(i, 1) + "重复存在"

        End If

 Next i

②数据行数不确定时：

For i = 2 To totalRow     ' totalRow   数据的总行数,可利用查询函数动态获取。

        If Application.CountIf(Range("A1:A" & totalRow), Cells(i, 1)) > 1 Then

                Cells(i, 1).Font.Color = 255
                Cells(i, 5) = Sheet1.Cells(i, 1) + "重复存在"

        End If

 Next i

演示结果如下图：