当前位置: 主页 > Office办公 > Excel教程 > excel中VBA快速取消工作簿中各工作表的自动筛选

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

  • 2022-01-07
  • 来源/作者: 菜鸟图库/ 菜鸟图库
  • 637 次浏览

当工作簿中的工作表数量较多时,要快速取消各个工作表中的自动筛选可以下面的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”的宏名,并单击“执行”按钮。

标签(TAG) Excel   excel2013