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

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

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

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

Sub RemoveAllAutoFilter()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
If sht.AutoFilterMode = True Then sht.AutoFilterMode = False
Next
End Sub

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

该文章内容来源于网络，由强国说学习-WPS之家(wps.qiangguoshuo.com)收集，希望能为广大朋友提供帮助。

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/41922.html