作者：乔山办公网日期：
返回目录：excel表格制作
选定所有工作来表为工作组，在其中的一个单元格输入公源式：
=RIGHT(CELL("FileName",C2),LEN(CELL("FileName",C2))-FIND("]",CELL("FileName",C2)))
即可在所有工作表的该单元格显示百各工作表的名称。
特别说明：此公式只对已度经保存的EXCEL文件有效，新建的BOOK1文件在没有保存前显示为错误值。
1、电脑打开Excel表格。抄
2、按Alt+F11进入VBA。
3、进入VBA后，点击插入模块。
4、点击插入模块后，输入代zd码
sub m
for each sh in sheets
k=k+1
cells(k,1)=sh.name
next
end sub
然后点击运行。
5、点击运行后，所有sheet名称就都提取出来了。
Sub test()
i = 1
For Each a In ThisWorkbook.Worksheets
Cells(i, 1).Value = a.Name
i = i + 1
Next
End Sub
用VBA
实现的方法和详细的操作步骤如下：
1、首先，如果要在Excel中获取所有工作表页面的名称来以创建目录，请“插入”一个工作表页面作为目录表，然后填写“获取名称”和“列表目录”在A1和B1上，如下图所示，然后进入下一步。
2、其次，完成上述步骤后，单击菜单栏中的“公式”选项，单击“定义名称”选项。在名称中填写标识，在“引用位置”填写“
= get.wortbook（1）”，然后单击“确定”按钮以完成组合定义，如下图所示，然后进入下一步。
3、接着，完成上述步骤后，单击单元格A2，然后输入“=index(标识,row(a2))”，按鼠标自左键单击单元格a2的右下角，鼠标变为“
+”，然后向下拖动鼠标。所有工作表页面名称都填充到列表里了，完成了工作表名称的获取，如下图所示，然后进入下一步。
4、最后，完成上述步骤后，获得的列表名称带有文zd件名，并且该文件名需要删除。单击单元格B2，然后输入如下的公式以获取最终列表目录。选择此列中的所有名称，按键盘上的“ ctrl +
c”进行复制，右键单击并选择“值粘贴”选项以完成操作，如下图所示。
这样，问题就解决了。