获取工作簿中的所有的工作表名？
牛闪闪的第一个反应是，这个肯定要用到VBA代码了。复制以下代码
Sub a()
For Each sh In Sheets
k = k + 1
Cells(k, 1) = sh.Name
Next
End Sub
试试看看，在“表名”汇总中鼠标右键代码，然后复制代码到窗体中，然后“运行”窗口。看动图操作。
那如果看不懂VBA代码呢？怎么办呢？有没有工具操作的方法呢？有。
具体操作如下：
定义一个名称，然后使用=get.workbook(1)公式。
接着在任意处，选中工作表对应的行数，比如本例为6个工作表，则选中6列，其实选择多一些行也没关系。在其中输入公式“=TRANSPOSE(a)，然后键盘后输入“Ctrl+Shift+Enter”，即可看到所有单元格中已经包含了所有的工作表名。具体操作如下:
此一系列操作是利用get.workbook 函数获取表名，然后在利用TRANSPOSE函数进行转置，让工作表竖排显示。
工作表获取后，发现会包含工作薄名字，然后利用分列按钮进行分离。注意分列前，先把函数进行复制成值的操作。然后利用分列功能进行分列，利用“]”符号进行分列。看动图操作。
文章内容由WPS之家(wps.qiangguoshuo.com)收集于网络，希望能为广大朋友提供帮助。
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
