excel VBA教程VBA常用小代碼：一鍵批量取消工作表隱藏,最近到了季度匯報的時候，掌握一手excel技能在此刻顯得多么重要，為了是你的excel看起來更高大上，今天教大家設置excel VBA教程，今天我們的干貨專業全稱為“excel VBA教程VBA常用小代碼：一鍵批量取消工作表隱藏”能不能以絢爛的技能征服領導，就在這一波了~

我們今天分享的VBA小代碼的內容有兩個，分別是：

1. 批量取消隱藏工作表

2. 批量提取單元格內的超鏈接地址

● 如何批量取消隱藏工作表

先說一下如何批量隱藏工作表。

我們可以按住Ctrl鍵，用鼠標分別選取需要隱藏的工作表標簽（如果所隱藏是連續的表格，可以使用Shift鍵），使之成為一個工作表組合，然后通過右鍵菜單的【隱藏】功能，將該工作表組合中的工作表一次性隱藏起來~

可是，反過來，如果一個工作薄的部分工作表隱藏了，需要批量取消隱藏， EXCEL就沒有提供這樣的功能。大家就要一個一個去進行手工操作：

右鍵單擊任意工作表標簽，在右鍵菜單中，選擇【取消隱藏工作表】，在彈出的對話框中，選擇相應的表名，做【確認】操作。

如果需要取消隱藏的工作表很多，這樣操作就很煩瑣。

如何一次性全部取消隱藏表格呢？有一個技巧是通過預先設置【自定義月視圖】，但依然有局限性。

可以使用以下VBA小代碼：

Sub qxyc()

Dim sht As Worksheet

'定義變量

For Each sht In Worksheets

'循環工作簿里的每一個工作表

sht.Visible = xlSheetVisible

'將工作表的狀態設置為非隱藏

Next

End Sub

動畫操作示意：

代碼一兩行，工作不用忙斷腸，說的就是這種情況了。您也動手試一下吧！

● 如何批量提取單元格內的超鏈接網址

如上圖，A列單元格的數據設置了超鏈接，現在需要把超鏈接的網址提取出來，結果參考B列。

Excel本身并沒有提供這樣的函數，所以通常還是使用到VBA編程，下面是一個VBA自定義函數GetAdrs。

Function GetAdrs(Rng)

Application.Volatile True

With Rng.Hyperlinks(1)

GetAdrs = IIf(.Address = "", .SubAddress, .Address)

End With

End Function

將代碼復制黏貼到工作簿的VBE界面新建的模塊中，在B1單元格輸入公式=getadrs(A1)，并復制填充到B3單元格，就可以得到結果了。