Question

如何列出Excel中所有的工作表名

Answer 1

可以VBA代码，把所有工作表名称显示在鼠标选定的单元格，操作步骤如下：

第一步、录制宏，选择开始录制，然后不做任何操作直接停止录制。

第二步、粘贴宏代码，按ALT+F8打开宏对话框，会出现刚才录制的宏，名字可能是“宏1”，鼠标单机此宏之后，点“编辑”按钮，然后进入了代码编写界面，在SUB 和END SUB行之间粘贴下面的代码：

    Dim x, y, i
    x = Selection.Cells(1, 1).Row
    y = Selection.Cells(1, 1).Column
    For i = 1 To Sheets.Count
        Cells(x + i - 1, y) = Sheets(i).Name
    Next i

然后关闭代码窗口

第三步、执行宏，鼠标在空白区域点一下，运行刚才的宏（可能名称是“宏1”），鼠标位置开始一下各行就会出现本工作簿所有表的名称。

Answer 2

sub listsht()
dim i&
for i=1 to sheets.count
cells(i,1)=sheets(i).name
next
end sub

使用以上代码。将所有工作表名列出，并写入A列。

Answer 3

Excel怎样快速生成工作表目录

Answer 4

用VBA吧，这个最简单了