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
- 閱讀 ( 831 )
- 分類：其他類型
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章