领带长度,北京消防检测,几梦hhh
所有工作表的名字取在一个工作表中,你是否弄明白这个这是什么个意思,它或许只是一个技巧,没有实际的用处,但是,喜欢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中即可。调用这款软件的最终目的还是为了截取里面的文字以便使用。
以上便是为大家介绍的有关工作薄中的所有工作表的名字取在一个工作表中的两种方法,感兴趣的朋友可以看看,以备不时之需哦。
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复
同一个Excel 文件中的任意多个工作表合并到一个表中的神技
Excel 根据身份证直接算出退休年月 用哪个函数 如何区别男女
Excel 中如何选择正确的地图类型及各种地图类型的应用场景
根据入职日期用Excel 计算工龄补贴 满1年补贴50满2年补贴100
Excel 微图表对数据进行可视化处理实现数据与图表的一体化衔接
被雪藏的datedif()函数的典型用法 适用最新版本的Excel
EXCEL 数据分析之合并单元格后按合计得分排序的整个心路历程
Excel-VBA批量将表达式转换为运算结果把代表的汉字给替换掉
网友评论