使用了activesheet.autofiltermode = false
和
dim Myworksheet as worksheet
Myworksheet.autofiltermode = false
既没有删除自动过滤器也预先使用Myworksheet.ShowAllData
。
使用Office 2013 Professional Plus
答案 0 :(得分:7)
对于表格,您需要不同的语法:
activesheet.listobjects(1).Autofilter.showalldata
清除过滤器,或:
activesheet.listobjects(1).ShowAutoFilter = False
如果您不希望下拉菜单可见。
答案 1 :(得分:5)
这个终于帮助我弄清楚如何确保Excel表的自动筛选功能开启并显示所有数据。我的最终代码是:
If ActiveSheet.ListObjects(1).ShowAutoFilter Then
ActiveSheet.ListObjects(1).AutoFilter.ShowAllData
Else
ActiveSheet.ListObjects(1).ShowAutoFilter = True
End If