VBA怎么判定数据重复录入

1、第一，新建一个空白EXCEL2003版的文档，然后点击视图——工具栏——窗体，方便使用命令按钮来操作宏。

3、第三，重命名命令按钮。为了方便操作，命令按钮以它的用途来命名，点击命令按钮的文字框——删除骒貉缭塄原有的文字——输入：判定重复数据。这样就重新命名好了。

5、第五，在代码编辑窗口那里，可以更sub开头的宏名称，修改容易明白是什么用途的宏，也可以不用彭榧逡钚修改——然后在中间那里输入如下代码：肛舀辨乔Dimarr,brr()DimIAsInteger,jAsIntegerDimDictAsObjectOnErrorResumeNextSetDict=CreateObject("scripting.dictionary")WithActiveSheetarr=Intersect(.UsedRange,.Columns(1))ForI=1ToUBound(arr)IfDict.exists(arr(I,1))ThenDict.Item(arr(I,1))=Dict.Item(arr(I,1))+1ElseDict.Item(arr(I,1))=1EndIfNextIForI=1ToUBound(arr)j=j+1ReDimPreservebrr(1Toj)brr(j)=IIf(Dict.Item(arr(I,1))=1,"唯一","重复")NextI.Columns(2).ClearContents.Range("b1").Resize(UBound(brr),1)=WorksheetFunction.Transpose(brr)EndWith