批量取消隐藏工作表 + 批量删除隐藏工作表(office2019) |
您所在的位置:网站首页 › excel表格怎样批量取消隐藏 › 批量取消隐藏工作表 + 批量删除隐藏工作表(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,文档检查器可能是在个人信息选项里面(文末有备注)(与上方呼应~)
|
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |