excel如何快速获取工作簿中工作表名？

Excel教程 2021-11-13 11:00:27

获取工作簿中的所有的工作表名？

牛闪闪的第一个反应是，这个肯定要用到VBA代码了。复制以下代码

Sub a()

For Each sh In Sheets

k = k + 1

Cells(k, 1) = sh.Name

End Sub

试试看看，在“表名”汇总中鼠标右键代码，然后复制代码到窗体中，然后“运行”窗口。看动图操作。

那如果看不懂VBA代码呢？怎么办呢？有没有工具操作的方法呢？有。

具体操作如下：

定义一个名称，然后使用=get.workbook(1)公式。

接着在任意处，选中工作表对应的行数，比如本例为6个工作表，则选中6列，其实选择多一些行也没关系。在其中输入公式“=TRANSPOSE(a)，然后键盘后输入“Ctrl+Shift+Enter”，即可看到所有单元格中已经包含了所有的工作表名。具体操作如下:

此一系列操作是利用get.workbook 函数获取表名，然后在利用TRANSPOSE函数进行转置，让工作表竖排显示。

工作表获取后，发现会包含工作薄名字，然后利用分列按钮进行分离。注意分列前，先把函数进行复制成值的操作。然后利用分列功能进行分列，利用“]”符号进行分列。看动图操作。