利用VBA一次性取消隐藏所有表格，将工作簿所有表格拆分成独立文件

最近，十年先生收到小伙伴们咨询:

1、如何一次性取消隐藏的所有工作表？

2、如何把同个工作簿的所有表格拆分成独立文件？

十年想说，尽管Excel为我们提供了很多好用的功能和函数，但还是有很多工作无法用现有功能和函数批量完成，比如上述的两个问题。但是，利用VBA语言编写的宏代码就能轻松实现这一点。（第1个示例中，演示了VBA代码的使用方法）

1、一次取消所有工作表的隐藏

Excel可以一次隐藏多个工作表，但取消工作表隐藏却需要一个个的设置，用VBA编写一段代码，一秒搞定！

注意

•   要想使用VBA功能，需要把代码粘贴到添加的模块中，详见动画演示

•   要想保存VBA代码，需要把文件另存为xlsm格式文件，详见动画演示

动画演示：

代码：

---

Sub 取消隐藏()

For x = 1 To Sheets.Count

If Sheets(x).Name <> '总表' Then

   Sheets(x).Visible = -1

End If

Next x

End Sub

Sub 隐藏()

For x = 1 To Sheets.Count

If Sheets(x).Name <> '总表' Then

   Sheets(x).Visible = 0

End If

Next x

End Sub

---

2、拆分工作表为单独的excel文件

把当前Excel文件中除第1个工作外的所有工作表，均保存为单独的excel文件到3月文件夹中。

拆分演示（在拆分过程中会画面会停几秒，请耐心等待）

代码：

---

Sub 拆分表格()

 Dim x As Integer

 Dim wb As Workbook

 Application.ScreenUpdating = False

 For x = 2 To 32

   Sheets(x).Copy

   Set wb = ActiveWorkbook

   With wb

    .SaveAs ThisWorkbook.Path & '/3月/' & Sheets(x).Name & '.xlsx'

    .Close True

   End With

 Next x

 Application.ScreenUpdating = True

End Sub