两种方法实现工作薄中的所有工作表名字取在一个工作表中

两种方法实现工作薄中的所有工作表名字取在一个工作表中

所有工作表的名字取在一个工作表中，你是否弄明白这个这是什么个意思，它或许只是一个技巧，没有实际的用处，但是，喜欢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中即可。调用这款软件的最终目的还是为了截取里面的文字以便使用。

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