批量取消隐藏工作表。 批量提取单元格的超链接。 ●如何批量取消隐藏工作表 先说一下如何批量隐藏工作表。 我们知道,一个工作簿如果需要批量隐藏部分表格,可以按住Ctrl键,用鼠标分别选取需要隐藏的工作表标签(如果所隐藏是连续的表格,可以使用Shift键),使之成为一个工作表组合,然后通过右键菜单的隐藏功能,统一隐藏起来。 可是,反过来,如果一个工作簿的部分表格隐藏了,需要批量取消隐藏,EXCEL就没有提供这样的功能。 大家就要一个一个手工去操作:右键单击任意工作表标签,在右键菜单中,选择【取消隐藏工作表】,在弹出的操作界面中,选择相应的表名,做确认操作。
如何一次性全部取消隐藏表格呢?可以使用以下VBA小代码。 Sub qxyc() Dim sht As Worksheet For Each sht In Worksheets sht.Visible = xlSheetVisible Next End Sub 代码一两行,工作不用忙断肠,说的就是这种情况了。你也动手试一下吧。 如果代码不会用,请参见这个帖子点击查看,里面有图文教程说明代码如何使用! ●如何批量提取单元格内的超链接网址
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。 我是男神,我是星光,喜欢我,就伸出大拇指支持我吧! |
|
来自: zuowoyunduan > 《待分类》