您现在的位置是:首页 > Excel技巧>excel批量取消隐藏所有工作表

excel批量取消所有隐藏工作表-excel批量取消隐藏所有工作表

发布于2022-04-150人已围观

在excel中，我们有时会把不要的工作表隐藏起来。前面我们介绍过如果批量隐藏多个工作表。

但是如果需要取消隐藏工作表呢？显示逐个去取消隐藏是不科学的


代码放在模块中，运行一下这个自定义函数，即可隐藏和取消隐藏工作表了。

Sub 取消隐藏()
    For x = 1 To Sheets.count
        If Sheets(x).Name <> "sheet14" Then
            Sheets(x).Visible = -1
        End If
    Next x
End Sub

Sub 隐藏()
    For x = 1 To Sheets.count
        If Sheets(x).Name <> "sheet14" Then
            Sheets(x).Visible = 0
        End If
    Next x
End Sub


效果图：

excel批量取消所有隐藏工作表



相关文章

文章评论

表情

共0条评论
  • 这篇文章还没有收到评论，赶紧来抢沙发吧~

最新发表

标签云

点击排行

站长特荐