Sub 高级筛选5列不重复数据至Sheet2()
    Sheets("Sheet2").Range("A1:E65536") = ""  '清除Sheet2的A列
    Range("A1:E65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range( _
                                                                         "A1"), Unique:=True
    Sheet2.Columns("A:E").Sort Key1:=Sheet2.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
                               OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
                                                                                           :=xlPinYin
End Sub

Sub 高级筛选5列不重复数据至Sheet2()
    Sheets("Sheet2").Range("A1:E65536") = ""  '清除Sheet2的A列
    Range("A1:E65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range( _
                                                                         "A1"), Unique:=True
    Sheet2.Columns("A:E").Sort Key1:=Sheet2.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
                               OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
                                                                                           :=xlPinYin
End Sub