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

利⽤VBA⼀次性取消隐藏所有表格，将⼯作簿所有表格拆分成独⽴⽂件最近，⼗年先⽣收到⼩伙伴们咨询:
1、如何⼀次性取消隐藏的所有⼯作表？
2、如何把同个⼯作簿的所有表格拆分成独⽴⽂件？
⼗年想说，尽管Excel为我们提供了很多好⽤的功能和函数，但还是有很多⼯作⽆法⽤现有功能和函数批量
（第1个⽰例中，
完成，⽐如上述的两个问题
上述的两个问题。

但是，利⽤VBA语⾔编写的宏代码就能轻松实现这⼀点。

（
）
代码的使⽤⽅法）
演⽰了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。