你的表格应该有表头,排序和筛选都各自可以用一个语句实现,如下的代码可以在不同规模的数据下工作(前提是必须有个表头在第一行、从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名