VBA怎么判定数据重复录入
今天小编与大师分享一下怎么利用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)
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
第六，编纂完当作后封闭退出VBA编纂器——在A列输入数据——输入完当作后，点击鉴定反复数据号令按钮，这时就会在B列显示反复，若是是独一就会显示独一。
注重事项
- 但愿能帮忙到你
- 发表于 2019-04-15 21:11
- 阅读 ( 929 )
- 分类：其他类型
0 篇文章
作家榜 »
-
xiaonan123
189 文章
-
汤依妹儿
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
华志健
23 文章