ArcGIS中检查属性表有无重​复

　　1、新建一个字段，字段类型选integer，命名为检查重复(其他名字亦可)

　　2、右键field calculate，勾选advanced，将下文代码贴入

　　' ----------------------------------------

　　' ESRI Support Home > Knowledge Base > Technical Articles > Article Detail

　　' 代码参见 HowTo: Identify duplicate field values

　　' ----------------------------------------

　　Static d As Object

　　Static i As Long

　　Dim iDup As Integer

　　Dim sField

　　' ----------------------------------------

　　'这里填写需要检查的字段名

　　sField = [A]

　　' ----------------------------------------

　　If (i = 0) Then

　　Set d = CreateObject("Scripting.Dictionary")

　　End If

　　If (d.Exists(CStr(sField))) Then

　　iDup = 1

　　Else

　　d.Add CStr(sField), 1

　　iDup = 0

　　End If

　　i = i + 1

　　注意这里：'这里填写需要检查的字段名sField = [A]

　　3、在= 下面，填 iDup，确定，OK~