91高清免费观看_亚洲高清视频免费观看_91视频综合_国产精品一区99_伊人手机视频_懂色av懂色aⅴ精彩av

有趣生活

当前位置:首页>职场>excel中使用vba清除工作表内容(excel一键批量取消工作表隐藏)

excel中使用vba清除工作表内容(excel一键批量取消工作表隐藏)

发布时间:2024-01-24阅读(4)

导读先说一下如何批量隐藏工作表。我们可以按住Ctrl键,用鼠标分别选取需要隐藏的工作表标签(如果所隐藏是连续的表格,可以使用Shift键),使之成为一个工作表组....

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

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

excel中使用vba清除工作表内容(excel一键批量取消工作表隐藏)(1)

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

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

excel中使用vba清除工作表内容(excel一键批量取消工作表隐藏)(2)

如果需要取消隐藏的工作表很多,这样操作就很烦琐。

如何一次性全部取消隐藏表格呢?有一个技巧是通过预先设置【自定义月视图】,但依然有局限性。

可以使用以下VBA小代码:

Sub qxyc()

Dim sht As Worksheet

定义变量

For Each sht In Worksheets

循环工作簿里的每一个工作表

sht.Visible = xlSheetVisible

将工作表的状态设置为非隐藏

Next

End Sub

动画操作示意:

excel中使用vba清除工作表内容(excel一键批量取消工作表隐藏)(3)

代码一两行,工作不用忙断肠,说的就是这种情况了。您也动手试一下吧!

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

excel中使用vba清除工作表内容(excel一键批量取消工作表隐藏)(4)

如上图,A列单元格的数据设置了超链接,现在需要把超链接的网址提取出来,结果参考B列。

Excel本身并没有提供这样的函数,所以通常还是使用到VBA编程,下面是一个VBA自定义函数GetAdrs。

Function GetAdrs(Rng)

Application.Volatile True

With Rng.Hyperlinks(1)

GetAdrs = IIf(.Address = "", .SubAddress, .Address)

End With

End Function

excel中使用vba清除工作表内容(excel一键批量取消工作表隐藏)(5)

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

欢迎分享转载→http://www.umpkq.cn/read-232092.html

Copyright ? 2024 有趣生活 All Rights Reserve吉ICP备19000289号-5 TXT地图

主站蜘蛛池模板: 999国内精品永久免费视频 | 亚洲狠狠婷婷综合久久久久网站 | 亚洲综合在线一区 | 欧美激情综合五月色丁香 | 91在线 一区 二区三区 | 精品一区二区免费视频 | 亚洲麻豆视频 | 天堂中文字幕在线 | 精品日韩一区 | 久久精品中文无码资源站 | 在线观看欧美国产 | 老头巨大挺进莹莹的体内免费视频 | 香蕉视频在线精品 | 福利理论片午夜片 | 免费大黄网站在线看 | 国产精品原创巨作av女教师 | 亚洲成在人线影视天堂网 | 国产精品嫩草影院免费看 | 免费一区二区三区免费视频 | 亚洲av午夜国产精品无码中文字 | 青青青免费手机版视频在线观看 | 国产破外女真实出血视频 | 在线视频一区二区 | 亚洲免费大全 | 激情综合色综合啪啪五月丁香搜索 | 美日韩一区二区 | 国内欧美一区二区三区 | 久久国产精品免费 | 玩弄人妻少妇精品视频 | 久久国产乱子伦精品免费强 | 日韩毛片一级 | 国产在线观看入口 | 亚洲涩网 | 无码国产69精品久久久久孕妇 | 亚洲福利精品一区二区三区 | 国产免费一级精品视频 | 久久电影精品久久99久久 | 日韩av无码一区二区三区 | 亚洲国产另类久久久精品网站 | 国产女人18毛片水真多 | 欧美黑人粗大猛烈18p |