批量取消隐藏工作表 + 批量删除隐藏工作表(office2019) |
您所在的位置：网站首页 › excel表格如何批量取消隐藏工作表 › 批量取消隐藏工作表 + 批量删除隐藏工作表(office2019) |
批量取消隐藏工作表 + 批量删除隐藏工作表(office2019)
|
1、 VBA小代码，批量取消隐藏工作表 Sub 批量取消隐藏工作表() Dim sht As Worksheet '定义变量 For Each sht In Worksheets '循环工作簿里的每一个工作表 sht.Visible = xlSheetVisible '将工作表的状态设置为非隐藏 Next End Sub2、VBA小代码，批量取消隐藏工作表并且删除 Sub 批量取消隐藏工作表并且删除() Dim sht As Worksheet For Each sht In Worksheets '如果不是显示状态（返回值是0，也可以写为：(xlSheetVisible)），则删除 If sht.Visible xlSheetVisible Then sht.Visible = xlSheetVisible Application.DisplayAlerts = False '删除时不用确认 sht.Delete End If Next '恢复确认，其实很多人不写这一句，作为小程序写不写倒也无所谓的啦，不影响你后面的程序执行，不过如果你的代码很多，流程很长，建议还是写上去，防止预期之外的的错误发生 Application.DisplayAlerts = True End Sub3、不写代码--批量删除隐藏工作表，使用office自带的文档检查器即可。 文件→选项→信任中心→信任中心设置→隐私选项→文档检查器→隐藏的工作表→检查→全部删除 PS：如果是office2013或者2016，文档检查器可能是在个人信息选项里面（文末有备注）
PS：如果是office2013或者2016，文档检查器可能是在个人信息选项里面（文末有备注）（与上方呼应~）
|
【本文地址】
今日新闻 |
推荐新闻 |