excel中如何批量取消隐藏的工作表

如题所述

按键盘上的Alt+F11,调出VBE对话框,然后双击左面的任何一个工作表的名称,然后将下列代码粘贴进去。然后点击工具栏上的绿色按钮运行一次即可。

Sub unhide()
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i
End Sub
如果我的回答没能帮助您,请继续追问。
温馨提示:内容为网友见解,仅供参考
第1个回答  2019-06-26

如果需要恢复隐藏的工作表多的话,一般的Excel界面操作是实现不了批量恢复的,需要借助VBA或是专门应用。以下推荐两种快速方法:

(1)可以使用VBA代码的方法恢复,打开VBE,将下列代码贴到新建的宏中,然后执行宏,隐藏的工作表就全恢复了。

Sub 恢复所有隐藏工作表()

Dim i As Integer

Application.DisplayAlerts = False

For i = Sheets.Count To 1 Step -1

If Sheets(i).Visible = False Then

Sheets(i).Delete

Else

End If 

Next i

ActiveWorkbook.Save

End Sub

(2)可以使用专门恢复隐藏工作簿的应用处理,还可以多个excel工作簿一起操作,很快。

Excel表格格式批量操作应用

相似回答