我们今天分享的VBA小代码的内容有两个，分别是：  

1. 批量取消隐藏工作表

2. 批量提取单元格内的超链接地址

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

先说一下如何批量隐藏工作表。

我们可以按住Ctrl键，用鼠标分别选取需要隐藏的工作表标签（如果所隐藏是连续的表格，可以使用Shift键），使之成为一个工作表组合，然后通过右键菜单的【隐藏】功能，将该工作表组合中的工作表一次性隐藏起来~

可是，反过来，如果一个工作薄的部分工作表隐藏了，需要批量取消隐藏， EXCEL就没有提供这样的功能。大家就要一个一个去进行手工操作：

右键单击任意工作表标签，在右键菜单中，选择【取消隐藏工作表】，在弹出的对话框中，选择相应的表名，做【确认】操作。

可以使用以下VBA小代码：

Sub qxyc()
    Dim sht As Worksheet
    ‘定义变量
    For Each sht In Worksheets
    ‘循环工作簿里的每一个工作表
        sht.Visible = xlSheetVisible
        ‘将工作表的状态设置为非隐藏
    Next
End Sub

动画操作示意：

●  如何批量提取单元格内的超链接网址

Function GetAdrs(Rng)

    Application.Volatile True

    With Rng.Hyperlinks(1)

        GetAdrs = IIf(.Address = “”, .SubAddress, .Address)

    End With

End Function

将代码复制黏贴到工作簿的VBE界面新建的模块中，在B1单元格输入公式=getadrs(A1)，并复制填充到B3单元格，就可以得到结果了。

上一篇：excel宏教程：带合并单元格的数据怎么查询？ 下一篇：excel宏教程：就任性！批量更改工作表名称

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。