Excel批量取消隱藏工作表的方法

excel批量取消隱藏工作表的方法

一個群友問到如何批量取消隱藏工作表。在一個excel工作薄里隱藏了十幾張工作表，想將其取消隱藏，使用excel內置的功能：“格式——工作表——取消隱藏”，只能逐張慢慢取消隱藏工作表，如何批量取消隱藏工作表呢？

要解決批量取消隱藏工作表，就只能使用VBA代碼完成。

下面提供兩端批量取消隱藏工作表的VBA代碼，都可以實現(xiàn)。

批量取消隱藏工作表代碼一：

按下"Alt+F11"鍵,在打開的"Microsoft Bisual Basic"窗口中,選擇"插入——模塊".，復制下面的代碼，按F5鍵運行，就完成了批量取消隱藏工作表。

Sub 批量取消隱藏工作表()Dim i As IntegerFor i = 1 To Worksheets.CountWorksheets(i).Visible = TrueNextEnd Sub

批量取消隱藏工作表代碼二：

Sub 批量取消隱藏工作表()For Each AA In SheetsAA.Visible = TrueNextEnd Sub

兩段代碼使用任意一段都可以批量取消隱藏工作表。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。