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

2020-05-03 教育 76阅读

可以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”),鼠标位置开始一下各行就会出现本工作簿所有表的名称。

声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com