excel VBA快速取消工作簿中各工作表的自动筛选

excel VBA快速取消工作簿中各工作表的自动筛选

当工作簿中的工作表数量较多时，要快速取消各个工作表中的自动筛选可以下面的VBA代码。

1.按Alt+F11，打开VBA编辑器。

2.在代码窗口中输入下列代码

Sub RemoveAllAutoFilter()Dim sht As WorksheetFor Each sht In ActiveWorkbook.WorksheetsIf sht.AutoFilterMode = True Then sht.AutoFilterMode = FalseNextEnd Sub

3.关闭VBA编辑器，按快捷键Alt+F8，打开“宏”对话框，选择包含“RemoveAllAutoFilter”的宏名，并单击“执行”按钮。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。