CodeTypeDateF0508190017IP1998-10-28F0508190018IP1998-10-28F0508190018IP1998-10-28F0508190021IP2002-8-15F0508190021IP2002-8-15F0508190021IP2002-8-15F0508240060PDH2002-8-15F0508240061PDH2003-10-20F0601120005PDH2002-8-15F0606270007PDH2002-8-15F0608110004SDH2003-10-20F0608110004SDH2002-8-15F0608220004PDH2002-8-15F0508190020IP1998-10-28F0508190020IP2002-8-15F0508190020IP2002-8-15F0707260012MSTP2002-8-15F0707260012MSTP2003-10-20F0707260012MSTP2003-10-20F0508170010PDH2003-10-20F0508170010PDH2002-8-15F0508170010PDH2003-10-20F0508170011SDH2003-10-20F0508170011SDH2003-10-20F0508170011SDH2003-10-20TypeIP执行代码Sub FilterUniqFilterUnique
WorksheetsActionCopyToEnd Sub执行代码
Sub FilterUniqFilterUniqueWithCri
WorksheetsActionCopyToEnd SubrUnique()heets(\"Sheet1\").Range(\"A1\").CurrentRegion.AdvancedFilter _ction:=xlFilterCopy, Unique:=True, _opyToRange:=Worksheets(\"Sheet2\").Range(\"A1\")rUniqueWithCriteriaRange()heets(\"Sheet1\").Range(\"A1\").CurrentRegion.AdvancedFilter _ction:=xlFilterCopy, CriteriaRange:=Range(\"E1:E2\"), _opyToRange:=Worksheets(\"Sheet2\").Range(\"A1\"), Unique:=True