VBA怎么判定数据重复录入

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

工具/原料

• EXCEL2003

方式/步骤

1. 1

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

   
2. 2

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

   
3. 3

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

   
4. 4

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

   
5. 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)

               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

               End 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)

       End With

   
6. 6

   第六，编纂完当作后封闭退出VBA编纂器——在A列输入数据——输入完当作后，点击鉴定反复数据号令按钮，这时就会在B列显示反复，若是是独一就会显示独一。

   

注重事项

• 但愿能帮忙到你