Excel中快速获取全部工作表名称

工作簿中有很多个工作表名称，如何快速获取呢？

这个用VBA就非常简单。

按快捷键alt f11，插入一个模块，输入下面的代码，并点击运行按钮。

Sub 表名()

    Dim i%

        For i = 1 To Sheets.Count

            Cells(i, 'd') = Sheets(i).Name

        Next

End Sub

这样就在D列生成所有工作表名称。