以下是一个高级筛选，我把以下代码复制到我做的控件里，改了(\"进出数据库\").(\"A:S\").(\"A1:S2\"), 这些参数，还是不行，我是从这里开始复制的；
Application.GoTo Reference:=\"R3:R65536\"
Selection.Clear
Range(\"A4\").Select
Sheets(\"进出数据库\").Columns(\"A:S\").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range(\"A1:S2\"), CopyToRange:=Range(\"A4\"), Unique:=False
Range(\"B5\").Select
但是它显示这个不对Application.GoTo Reference:=\"R3:R65536\"请问这
R3:R65536是怎么来的！
但是我把这里修改以后，又显示这个不对，Selection.Clear
但以下这个代码是别人做的在他那个表里，是可以用的，请高手指点
Sub 高级筛选()
\'
\' 高级筛选 Macro
Application.GoTo Reference:=\"R3:R65536\"
Selection.Clear
Range(\"A4\").Select
Sheets(\"进出数据库\").Columns(\"A:S\").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range(\"A1:S2\"), CopyToRange:=Range(\"A4\"), Unique:=False
Range(\"B5\").Select
End Sub
|
