打开要提取工作表名的工作簿
按 Ctrl+F3 打开「名称管理器」
点新建 名称输入：allsheet
引用位置粘贴：=GET.WORKBOOK(1)
确定、关闭名称管理器。
第二步：输入公式提取表名
在任意空白单元格（比如 A2）输入公式：
=MID(INDEX(allsheet,ROW(A1)),FIND("]",INDEX(allsheet,ROW(A1)))+1,99)
然后往下下拉填充，直到出现报错为止，所有工作表名就全部列出来了。
- 这个是宏表函数，不是 VBA 宏，不用启用宏、不用另存 xlsm，普通 xlsx 就能用；
- 1.下拉后自动列出所有工作表名称，自带去括号、去掉工作簿前缀；
- 2.新增 / 删除工作表后，按 F9 刷新一下就更新；
- 3.WPS、微软 Excel 2016/2019/365 都通用。
举个效果
原本会带 [工作簿.xlsx]表1，公式自动只保留：表 1、表 2、表 3 纯表名列表
