你看是不是比手动折腾省事多了，轻轻点下按钮，搞定了！

这类活儿不要手动折腾了，交给VBA自动执行就好。

这里为了方便演示，所以仅用了少量工作表名称，当工作中数据增加，代码也可以兼容，大幅提升工作效率。

下面介绍具体的操作步骤。

更多方向和领域的Excel实战技术，从入门到高级都有超清视频精讲，请从微信公众号“跟李锐学Excel”进底部菜单的“知识店铺”查看

不同内容、不同方向的Excel视频课程

获取

在Excel中插入VBA代码的步骤如下：

打开 Excel，打开你想要添加 VBA 代码的工作簿。

按下 Alt + F11 打开 VBA 编辑器。

你也可以通过在 Excel 中选择“开发工具”选项卡，然后点击“Visual Basic”按钮来打开 VBA 编辑器。

如果没找到“开发工具”选项卡，按以下步骤打开：

（1）在 Excel 中选择“文件” > “选项”。

（2）在选项窗口中，选择“自定义功能区”。

（3）在右侧的“主选项卡”列表中找到“开发工具”并勾选。

（4）点击“确定”。

进入VBA编辑器后，选择“插入” > “模块”（Insert > Module）。这将在工作簿中创建一个新的 VBA 模块。

在右侧的代码窗口中输入以下VBA代码。

以下是本案例使用的VBA代码。

Sub UnhideSheets

Dim ws As Worksheet

Dim shtList As Worksheet

Dim i As Integer

Dim initialSheet As Worksheet

' 记录当前活动工作表

Set initialSheet = ActiveSheet

' 检查是否存在名为“目录”的工作表，如果不存在则新建

On Error Resume Next

Set shtList = ThisWorkbook.Worksheets("目录")

On Error GoTo 0

If shtList Is Nothing Then

MsgBox "请先运行 GetShtName 过程以创建工作表目录！", vbExclamation

Exit Sub

End If

' 遍历“目录”工作表的数据，取消隐藏B列标记为1的工作表

For i = 2 To shtList.Cells(shtList.Rows.Count, 1).End(xlUp).Row

If shtList.Cells(i, 2).Value = 1 Then

Set ws = Nothing

On Error Resume Next

Set ws = ThisWorkbook.Worksheets(shtList.Cells(i, 1).Value)

On Error GoTo 0

If Not ws Is Nothing Then ws.Visible = xlSheetVisible

End If

Next i

' 将光标移动到初始位置

initialSheet.Activate

End Sub

将以上代码添加到按钮，运行代码后，即可按要求批量恢复工作表显示。

这样就搞定啦，完工！

保存Excel文件，如果文件是.xlsx格式，需要将其另存为.xlsm格式。

好啦，今天就到这里吧，希望这篇教程能够帮到你。

原创作者： 李锐

微信公众号：VBA应用大全（VbaApp）

干货教程 · 信息分享

阅读原文”进入知识店铺

↓↓↓系统、全面、快速提升！返回搜狐，查看更多