使当前筛选列表的所有行均可见。如果正在使用自动筛选，则本方法将下拉列表框内容改为“（全部）”。
expression.ShowAllData
expression 必需。该表达式返回一个 Worksheet 对象。
本示例使工作表 Sheet1 上所有的数据可见。本示例应在包含用“自动筛选”命令筛选出的列表的工作表上运行。
Worksheets("Sheet1").ShowAllData