Excel 一键取消工作薄筛选

格子社区

阅： 3316 | 回： 3

一键取消工作薄筛选全部 , 编号:0703

oeasy

发表于2016/4/13 22:44:35 楼主

回复楼主

等级:初学者

积分:8

财富值:2.2

身份:普通用户

各位好：
由于本人工作需要，平时要在多个工作薄中查找需要的内容，但是工作薄都是同事传给我的，他们惯于筛选出当日内容后保存，但我需要查找以往日期内容，筛选后就未体现内容就查找不到，请各位大神帮忙写段代码可以一键去除当前工作薄或所有工作薄筛选

我的个性签名

首席打杂

发表于 2016/4/20 11:00:21

回复2楼

等级:学者

积分:99

财富值:250

身份:普通用户

回复：楼主

用这个宏，放到收纳箱里面

Sub 取消全部工作簿的筛选()
    On Error Resume Next
     Dim wb As Workbook
     Dim ws As Worksheet
     
     For Each wb In Application.Workbooks
        For Each ws In wb.Worksheets
            ws.UsedRange.AutoFilter
        Next
     Next
     
End Sub

我只是一个打工仔..

oeasy

发表于 2016/4/28 16:16:54

回复3楼

等级:初学者

积分:8

财富值:2

身份:普通用户

回复：2楼

谢谢

我的个性签名

苦小白

发表于 2016/5/17 22:15:56

回复4楼

等级:学有小成

积分:22

财富值:5

身份:普通用户

路过帮顶

我的个性签名

<<<1>>>

快速回复

目前不允许游客发表，请登录注册后再发贴。