VBA怎么实现excel的自动筛选

关于高级筛选，不多说，EXCEL自带，数据-筛选-高级筛选，补充一点需要注意的，筛选的时候要钩选“选择不重复记录”，另一个是EXCEL可能会自动扩大筛选范围，比如说编号同样是001，但数量不同，这时候EXCEL会认为这是两条不同的记录从而都显示出来，但我们可能只需要知道不同的编号，而不管数量。解决办法是把编号这一列同其它列用空列隔开，然后选中这一列后再便用高级筛选功能。

看你题目的意思是想把高级筛选选出来的数据重新填入另一个表中是吗？如果不是经常要用的话可以直接选中后复制粘贴，经常要用的话可以用宏，下面是我在EXCEL2003中用录制宏得到的，把表1中筛选出来的数据复制到表2中。你可以看需要改改。如果是需要高级筛选 的话你也可以录制一段宏然后加到代码里面就行了，希望可以帮到你
Sub Macro1()
'
' Macro1 Macro
' 宏由 ylc 录制，时间: 2011-5-26
'

'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
希望能帮到你

excel有去重的功能
这个是用去重录出来的vba代码
ActiveSheet.Range("$C$1:$C$4").RemoveDuplicates Columns:=1, HEADER:=xlNo