统计Excel中所有工作表表名

可以vba代码，把所有工作表名称显示在鼠标选定的单元格， *** 作步骤如下：
第一步、录制宏，选择开始录制，然后不做任何 *** 作直接停止录制。
第二步、粘贴宏代码，按alt+f8打开宏对话框，会出现刚才录制的宏，名字可能是“宏1”，鼠标单机此宏之后，点“编辑”按钮，然后进入了代码编写界面，在sub
和end
sub行之间粘贴下面的代码：
dim x, y, i
x = selectioncells(1, 1)row
y = selectioncells(1, 1)column
for i = 1 to sheetscount
cells(x + i - 1, y) = sheets(i)name
next i然后关闭代码窗口
第三步、执行宏，鼠标在空白区域点一下，运行刚才的宏（可能名称是“宏1”），鼠标位置开始一下各行就会出现本工作簿所有表的名称。

EXCEL中某些工作表标签不见，有以下几种可能：

右击任一工作表标签，如果“取消隐藏”呈高亮显示，并非灰色不可 *** 作，那就是隐藏了，点击“取消隐藏”即可；

水平滚动条移动得太靠左侧工作表标签了，导致工作表标签不能全部显示，按住滚动条左侧的竖线条，向右移动即可；

工作表标签太多，导致不能完全显示出来，此时可利用工作表标签左侧的快速切换按钮，切换到需要的工作表标签。

方法1
1、首先，我分享第一个方法，这个方法可是非常简单的哦。打开一个含有多个工作表的excel工作薄，然后新建一个工作表，此处命名为“汇总表”。
2、找到“查看代码”并打开，查找方法如下图所示，有以下两个方法：1鼠标右键点击“汇总表”，在下拉菜单中找到“查看代码”；2找到工具栏中的“开发工具”，可以看到“查看代码”在“控件”下拉菜单中。
3、点击“查看代码”后进入如下对话框，双击“sheet7(汇总表)”可以看到右边d出sheet7代码输入框，在其中输入以下内容：
sub
a()
for
each
sh
in
sheets
k
=
k
+
1
cells(k,
1)
=
shname
next
end
sub

---