Sub 去重2()    '调用系统去重功能 提取不重复项
    Sheet1.Cells.Clear
    Sheet3.Range("A:D").Copy Sheet1.Range("A1")
    Sheet1.UsedRange.RemoveDuplicates _
            Columns:=Array(1, 3), Header:=xlYes
End Sub