【VB】筛选不重复的数据.doc

文档介绍：Sub Macro1()
'
' Macro1 Macro
' 宏由罗艳军录制,时间: 2009-9-20
'
Range("A1:A8").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1" _
), Unique:=True
End Sub