两种方法实现工作薄中的所有工作表名字取在一个工作表中(工作簿由一个工作表组成,对吗?)

fangcloud 108 2022-08-10

本文转载自网络公开信息

两种方法实现工作薄中的所有工作表名字取在一个工作表中(工作簿由一个工作表组成,对吗?)

所有工作表的名字取在一个工作表中,你是否弄明白这个这是什么个意思,它或许只是一个技巧,没有实际的用处,但是,喜欢VBA的朋友可不能放弃这次的学习哦!艺多不压身,艺高人胆大。

方法一:宏

笔者以Excel 2013为例,同样的操作步骤适用于Excel 97~2016。

假定工作薄中已经有三个工作表(实际上,有几个都行)。我们新建一个工作表,新工作表的名称是Sheet4。

Ctrl+N是新建工作薄Shift+F11是新建工作表,小技巧,大速度。

按Alt+F11快捷键,出现”Microsoft Visual Basic for Application“窗口。

ALT+F11在EXCEL窗口打开Visual Bcsic编辑器窗口,在Visual Bcsic编辑器窗口回到EXCEL窗口ALT+SHIFT+F11打开Microsoft 编辑器

在左上角的”工程-VBAProject“树状列表中,双击Sheet4。右边出现一个代码窗口。

把以下VBA代码复制粘贴到代码窗口中:

Private Sub ListSheets()

Dim sh As Worksheet

Dim rng As Range

Dim i As Integer

Set rng = ActiveSheet.Range("A1")

For Each sh In ThisWorkbook.Sheets

rng.Offset(i, 0).Value = sh.Name

i = i + 1

If i = ThisWorkbook.Sheets.Count - 1 Then Exit For

Next sh

End Sub

按F5快捷键,运行这个过程。然后切换回Excel窗口,看看Sheet4工作表的A列,是不是已经把所有工作表的名称列出来了?

这个F5除了有定位功能还可以运行VBA代码,当然这要依据您当前使用的环境。

方法二:抽取文字

右击某个工作表,选择“移动或复制”,弹出“移动或复制工作表”对话框。在这里有个列表框,叫作““下列选定工作表之前”,它列出了当前工作簿中所有工作表的名称。

这个移动或复制工作表的功能还不小来,不仅可以设置工作表的顺序,还可以复制工作表,并命名。

用截图软件SnagIt的”截取文字“功能,把这个列表框截下来,SnagIt会抽取里面的文字,也就是每个工作表的名称。复制粘贴到Excel中即可。调用这款软件的最终目的还是为了截取里面的文字以便使用。

以上便是为大家介绍的有关工作薄中的所有工作表的名字取在一个工作表中的两种方法,感兴趣的朋友可以看看,以备不时之需哦。

本站部分文章、图片属于网络上可搜索到的公开信息,均用于学习和交流用途,不能代表亿方云的观点、立场或意见。我们接受网民的监督,如发现任何违法内容或侵犯了您的权益,请第一时间联系小编邮箱jiasou666@gmail.com 处理。
上一篇:如果没有微信如何传人图片(没有微信怎么传图片)
下一篇:企业CAX软件License资产管理的困局
相关文章

 发表评论

暂时没有评论,来抢沙发吧~

微信二维码