Sub deleteDuplicatedFeature()

 Dim app As IApplication

 Set app = Application

 Dim pMxDocument As IMxDocument

 Set pMxDocument = Application.Document

 Dim pMap As IMap

 Set pMap = pMxDocument.FocusMap

 Dim pFeatureLayer As IFeatureLayer

 Set pFeatureLayer = pMap.Layer()

 Dim pFeatureClass As IFeatureClass

 Set pFeatureClass = pFeatureLayer.FeatureClass

 Dim pFeatureCursor As IFeatureCursor

 Set pFeatureCursor = pFeatureClass.Search(Nothing, False)

 Dim pArea As IArea

 Dim pRelOp As IRelationalOperator

 Dim pFeature As IFeature

 Set pFeature = pFeatureCursor.NextFeature

 Dim findex As Integer

 findex = pFeatureClass.FindField("ifCopyed")

 Dim fid As Integer

 fid = pFeatureClass.FindField("FID")

 Dim pFilter As ISpatialFilter

 Dim pFeatureCursorCompared As IFeatureCursor

 Dim pFeatureCompared As IFeature

 Dim pShapeCompared As IPolygon

 Dim pAreaCompared As IArea

 While Not pFeature Is Nothing

    Set pRelOp = pFeature.Shape

    Set pFilter = New SpatialFilter

    With pFilter

     Set .Geometry = pFeature.Shape

         .GeometryField = "SHAPE"

         .SpatialRel = esriSpatialRelIntersects

    End With

    Set pFeatureCursorCompared = pFeatureClass.Search(pFilter, False)

    Set pFeatureCompared = pFeatureCursorCompared.NextFeature

     While Not pFeatureCompared Is Nothing

         Set pShapeCompared = pFeatureCompared.Shape

         If pRelOp.Equals(pShapeCompared) And pFeature.Value(fid) <> pFeatureCompared.Value(fid) Then

             pFeatureCompared.Delete   '删除之后，查询可以可以自动调节

          End If

          Set pFeatureCompared = pFeatureCursorCompared.NextFeature

     Wend

    Set pFeature = pFeatureCursor.NextFeature

 Wend

 import arcpy

 fc = "D:\Output.shp"  #change to your own shapefile

 desc = arcpy.Describe(fc)

 shapefieldname = desc.ShapeFieldName

 rows = arcpy.SearchCursor(fc)

 for row in rows:

     rows2 = arcpy.UpdateCursor(fc)

     for row2 in rows2:

         if row.getValue(shapefieldname).equals(row2.getValue(shapefieldname)) and row.getValue("FID") != row2.getValue ("FID"):

             rows2.deleteRow(row2)

     del row2       

 del rows