1、如下图工作簿中含有部分隐藏的工作表，现在我们想要批量取消隐藏工作表。
2、同时按下Alt+F11，打开vba界面
3、点击sheet2（1模）
4、在右边区域录入vba代码
5、录入完成后，点击【运行】，然后选择【运行子程序/用户窗口】
6、最后点击【运行】即可完成
7、下面跟大家分享一下这里使用的vba代码，如果需要vba代做，可以百度方方格子
Sub 取消隐藏的全部工作表()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i
End Sub
