大家好，我是星光，很久没有分享VBA常用小代码系列，昨个有人说我又太监了……今天我就证明我不是太监，当然，证明的方式不是脱裤子……
好吧，正经一点，我们今天分享的VBA小代码有两个小内容：
批量取消隐藏工作表。
批量提取单元格的超链接。
●如何批量取消隐藏工作表
先说一下如何批量隐藏工作表。
我们知道，一个工作簿如果需要批量隐藏部分表格，可以按住Ctrl键，用鼠标分别选取需要隐藏的工作表标签（如果所隐藏是连续的表格，可以使用Shift键），使之成为一个工作表组合，然后通过右键菜单的隐藏功能，统一隐藏起来。
可是，反过来，如果一个工作簿的部分表格隐藏了，需要批量取消隐藏，EXCEL就没有提供这样的功能。
大家就要一个一个手工去操作：右键单击任意工作表标签，在右键菜单中，选择【取消隐藏工作表】，在弹出的操作界面中，选择相应的表名，做确认操作。
如果需要取消隐藏的工作表很多，这样操作就很烦琐。
如何一次性全部取消隐藏表格呢？可以使用以下VBA小代码。
Sub qxyc()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Visible = xlSheetVisible
Next
End Sub
代码一两行，工作不用忙断肠，说的就是这种情况了。你也动手试一下吧。
如果代码不会用，请参见这个帖子点击查看，里面有图文教程说明代码如何使用！
●如何批量提取单元格内的超链接网址
如上图，A列单元格的数据设置了超链接。现在需要把超链接的地址提取出来。
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单元格，就可以得到结果了。
●结束语
……春困秋乏夏打盹儿，作为一个上了年纪的睡美人，写到这里，已是昏昏欲睡了，本来想说个什么事，但这会儿又忘记了。那么就都握手，说再见吧，祝一天愉快，88。
