怎么快速提取一个excel文件中的所有工作表名？

如果一个工作簿中有多个工作表，快速获取所有工作表名称有两种方法比较不错，一种是使用函数，另一种是用VBA代码。

使用函数

使用函数的话需要提前安装一个函数扩展包。如下图所示，这个工作簿中有7个表，需要提取所有工作表名称。我们在第一张工作表的A1单元格输入公式

=IFERROR(GetSheetName(ROW(A1)),'')

然后向下拖动复制，知道出现空白即停止。

这里IFERROR函数的作用是屏蔽错误值，让结果更整洁。

这里提到的函数扩展包在方方格子官网可以找到。

使用VBA代码

我们切换到【开发工具】菜单，点击【Visual Basic】打开VBA代码编辑器，新建一个模块，并输入如下代码。

Sub GetSheetsName()
Dim sht As Worksheet
Dim i As Integer
i = 1
For Each sht In Sheets
Cells(i, 2) = sht.Name
i = i + 1
Next
End Sub

然后点击【运行】按钮，即可在B列快速生成所有工作表的名称。

第一种方法相对简单，对于初学者比较友好，但需要提前安装函数扩展包；第二种方法需要有简单的VBA基础，但也相对比较简单。大家可以根据自己的情况选择合适的方法。