VBA判断某列数据重复存在

VB/VBA 专栏收录该内容
16 篇文章 2 订阅

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

①数据行数确定时:

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


演示结果如下图:


  • 0
    点赞
  • 0
    评论
  • 15
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

©️2022 CSDN 皮肤主题:技术黑板 设计师:CSDN官方博客 返回首页

打赏作者

boveysmith

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值