你的表格应该有表头，排序和筛选都各自可以用一个语句实现，如下的代码可以在不同规模的数据下工作（前提是必须有个表头在第一行、从A列开始）：
Option Explicit
Sub X()
ActiveSheet.UsedRange.Sort key1:=Range("a2"), order1:=xlAscending, Header:=xlYes
ActiveSheet.UsedRange.AutoFilter field:=2, Criteria1:=Array("C06,", "C07")
End Sub
试验数据：
你看下代码里的
Sheet1
是不是这个筛选表的sheet名
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024