Login dark
title: VBA判断某列数据重复存在
author: Love02xp
date: 2023-06-20 11:04:17
category: [编程代码]
tags: [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