【文件属性】：
文件名称：计算重复属性
文件大小：774B
文件格式：TXT
更新时间：2018-06-08 07:39:21
检查重复
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