Excel快速汇总各个工作表的表名

1. 快捷键alt+f11打开VB
2. 找到当前需要汇总的工作表，右键鼠标点击查看代码
3. 复制代码

Sub a()

For Each sh In Sheets

k = k + 1

Cells(k, 1) = sh.Name

Next

End Sub

Cells(m, n) 说明

m表示在第几行开始输出，n表示输出在第几列

代码中 Cells(k, 1) 表示的是在第一行第一列进行输出，可自定义修改。下面图片中代码就是：从第二行开始在第二列依次输出当前excel所有工作表名

4. 执行代码