VBA怎么判定数据重复录入 _EXCEL2003

今天小编与大师分享一下怎么利用VBA代码来分辩鉴定输入的数据是反复数据，以EXCEL2003为例进行申明。

文章插图

需要这些哦
EXCEL2003
方式/
1第一，新建一个空白EXCEL2003版的文档，然后点击视图——东西栏——窗体，便利利用号令按钮来操作宏。

文章插图

2第二，拖出号令按钮。在窗体东西栏那边点击选择号令按钮——在EXCEL表格那边画一个方框号令按钮就出来了。

文章插图

3第三，重定名号令按钮。为了便利操作，号令按钮以它的用途来定名，点击号令按钮的文字框——删除原有的文字——输入：鉴定反复数据。这样就从头定名好了。

文章插图

4第四，打开号令按钮代码编纂窗口：右击号令按钮——指定宏——新建——这时就会弹出代码编纂窗口出来。

文章插图

5第五，在代码编纂窗口那边，可以更sub开首的宏名称，点窜轻易大白是什么用途的宏，也可以不消点窜——然后在中心那边输入如下代码：
Dim arr, brr()
    Dim I As Integer, j As Integer
    Dim Dict As Object
    On Error Resume Next
    Set Dict = CreateObject("scripting.dictionary")
    With ActiveSheet
        arr = Intersect(.UsedRange, .Columns(1))
        For I = 1 To UBound(arr)
【VBA怎么判定数据重复录入】            If Dict.exists(arr(I, 1)) Then
                Dict.Item(arr(I, 1)) = Dict.Item(arr(I, 1)) + 1
            Else
                Dict.Item(arr(I, 1)) = 1
             If
        Next I
        For I = 1 To UBound(arr)
            j = j + 1
            ReDim Preserve brr(1 To j)
            brr(j) = IIf(Dict.Item(arr(I, 1)) = 1, "独一", "反复")
        Next I
        .Columns(2).ClearContents
        .Range("b1").Resize(UBound(brr), 1) = WorksheetFunction.Transpose(brr)
     With