excel vba筛选后复制,vba复制筛选后的数据

VBA复制粘贴自动筛选后的内容：

Sub sx() If Dir("D:VBAxx.xls") <> "" Then Workbooks.Open Filename:="D:VBAxx.xls" Else GoTo ERR End If Range("A1").Select With Selection .AutoFilter Field:=1, Criteria1:=0 .SpecialCells(xlCellTypeVisible).Copy Sheets("Temp").Range("A1") End With ERR: MsgBox "发现非法数据存在，程序终止！", 16End Sub