我們今天分享的VBA小代碼的內(nèi)容有兩個，分別是：
1. 批量取消隱藏工作表
2. 批量提取單元格內(nèi)的超鏈接地址
● 如何批量取消隱藏工作表
先說一下如何批量隱藏工作表。
我們可以按住Ctrl鍵，用鼠標(biāo)分別選取需要隱藏的工作表標(biāo)簽（如果所隱藏是連續(xù)的表格，可以使用Shift鍵），使之成為一個工作表組合，然后通過右鍵菜單的【隱藏】功能，將該工作表組合中的工作表一次性隱藏起來~
可是，反過來，如果一個工作薄的部分工作表隱藏了，需要批量取消隱藏， EXCEL就沒有提供這樣的功能。大家就要一個一個去進行手工操作：
右鍵單擊任意工作表標(biāo)簽，在右鍵菜單中，選擇【取消隱藏工作表】，在彈出的對話框中，選擇相應(yīng)的表名，做【確認(rèn)】操作。
如果需要取消隱藏的工作表很多，這樣操作就很煩瑣。
如何一次性全部取消隱藏表格呢？有一個技巧是通過預(yù)先設(shè)置【自定義月視圖】，但依然有局限性。
可以使用以下VBA小代碼：
Sub qxyc()
Dim sht As Worksheet
‘定義變量
For Each sht In Worksheets
‘循環(huán)工作簿里的每一個工作表
sht.Visible = xlSheetVisible
‘將工作表的狀態(tài)設(shè)置為非隱藏
Next
End Sub
代碼一兩行，工作不用忙斷腸，說的就是這種情況了。您也動手試一下吧！
● 如何批量提取單元格內(nèi)的超鏈接網(wǎng)址
如上圖，A列單元格的數(shù)據(jù)設(shè)置了超鏈接，現(xiàn)在需要把超鏈接的網(wǎng)址提取出來，結(jié)果參考B列。
Excel本身并沒有提供這樣的函數(shù)，所以通常還是使用到VBA編程，下面是一個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é)果了。
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。