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

2025-10-19 12:31:09

1、如下图工作簿中含有部分隐藏的工作表，现在我们想要批量取消隐藏工作表。

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

2、同时按下Alt+F11，打开vba界面

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

3、点击sheet2（1模）

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

4、在右边区域录入vba代码

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

5、录入完成后，点击【运行】，然后选择【运行子程序/用户窗口】

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

6、最后点击【运行】即可完成

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

7、下面跟大家分享一下这里使用的vba代码，如果需要vba代做，可以百度方方格子

Sub 取消隐藏的全部工作表()

Dim i As Integer

For i = 1 To Sheets.Count

Sheets(i).Visible = True

Next i

End Sub

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。