excel学习库

该方法可以批量取消工作簿中每个sheet表格的隐藏行列

1、打开Excel表格

2、alt+F11 打开宏页面

3、双击左侧Thisworkbook

4、复制VBA代码：

Sub Unhide_All()

Dim ws As Worksheet

Dim c As Range

'取消隐藏行

For Each ws In ActiveWorkbook.Worksheets

ws.Rows.Hidden = False

Next ws

'取消隐藏列

For Each ws In ActiveWorkbook.Worksheets

ws.Columns.Hidden = False

Next ws

End Sub

5、关闭VBA

6、Alt+F8，执行Thisworkbook

完成。

（哥！帮忙点个关注！100粉丝我就能发视频教程了，感谢感谢！！）