1.新建一个表,随意即可 2.进入vb编辑,alt+F11,在我们新建的表上右击打开查看代码 3.输入以下代码,点击运行 Sub a() For Each sh In Sheets k = k + 1 Cells(k, 1) = sh.Name Next End Sub 4.关闭vb,我们建的表中已经汇总了所有表名