VBA代做批量取消隐藏工作表

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