excel怎么用宏确定固定筛选内容

Question

如图我要固定筛选下图打勾的内容，然后每天都有一个这样的表，为了方便想做一个宏。之前自己通过录制做了一个 在这个表里可以使用 但是换个日期同样的表 就提示运行错误9 下标越界 有没有高手能帮我做一个宏。

Answer 1

Sub Test()
ActiveSheet.Range("B:B").AutoFilter Field:=2, _ '2表示日期列在筛选区域第2列，改成你实际第几列
Criteria1:=Array("7:00-12:30", "7:00-15:00", "7:00-17:00", "8:00-15:00", "8:00-18:00", "9:00-18:00"), _ '如果还有更多时间段自行加入
Operator:=xlFilterValues
End Sub
-------------------------------------------------------------
你复制宏时，把'连同后面的说明删掉，要不会提示无效字符