VBA常用小代码：一键批量取消工作表隐藏

VBA常用小代码：一键批量取消工作表隐藏

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

1. 批量取消隐藏工作表 2. 批量提取单元格内的超链接地址

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

可以使用以下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单元格，就可以得到结果了。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。