VBA判断某列数据重复存在

作者: Love02xp 日期: 2023-06-20 11:04:17 分类: 编程代码 标签: VBA, 代码, 学习 路径: Software/OfficeSoft/

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

①数据行数确定时：

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