说明: Static d As Object Static i As Long Dim iDup As Integer Dim sField ' ---------------------------------------- '这里填写需要检查的字段名 sField = [A] ' ---------------------------------------- If (i = 0) Then Set d = CreateObject("scr ipting.Dictionary") End If <qq_23872631> 上传 | 大小:774byte