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 (d.Exists(CStr(sField))) Then iDup = 1 Else d.Add CStr(sField), 1 iDup = 0 End If i = i + 1