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

我們今天分享的VBA小代碼的內(nèi)容有兩個(gè)，分別是：

1. 批量取消隱藏工作表

2. 批量提取單元格內(nèi)的超鏈接地址

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

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

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

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

右鍵單擊任意工作表標(biāo)簽，在右鍵菜單中，選擇【取消隱藏工作表】，在彈出的對(duì)話框中，選擇相應(yīng)的表名，做【確認(rèn)】操作。

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

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

可以使用以下VBA小代碼：

Sub qxyc()

Dim sht As Worksheet

'定義變量

For Each sht In Worksheets

'循環(huán)工作簿里的每一個(gè)工作表

sht.Visible = xlSheetVisible

'將工作表的狀態(tài)設(shè)置為非隱藏

Next

End Sub

動(dòng)畫操作示意：

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

● 如何批量提取單元格內(nèi)的超鏈接網(wǎng)址

如上圖，A列單元格的數(shù)據(jù)設(shè)置了超鏈接，現(xiàn)在需要把超鏈接的網(wǎng)址提取出來，結(jié)果參考B列。

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

Function GetAdrs(Rng)

Application.Volatile True

With Rng.Hyperlinks(1)

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

End With

End Function

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