如何批量提取excel工作表名称（函数或VBA）_草爷

个人资料

微博

正文字体大小：大中小

如何批量提取excel工作表名称（函数或VBA）

(2020-07-31 10:26:08)

标签：

分类： Excel相关

一、函数提取法，方法如下：

1. 打开Excel文件，点击“公式”栏，进而点击“定义管理器”

2. 在弹出的对话框中，点击新增按钮，

名称：“sheet”，引用位置：“=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())”，并点击确认

3. 再次点击新增按钮，

名称：“sheetname”,引用位置：“=LOOKUP(ROW(INDIRECT("1:"&COLUMNS(sheet))),MATCH(sheet,sheet,),sheet)”，并点击确认

4.在工作表单元内输入“=sheetname”并确认，得到第一张工作表的名称sheet1

5. 如果表格有n个sheet页，往下拖动新增n-1个单元格，选择拖动后全部的单元格范围，光标回到函数输入框中，键盘同时按下ctrl、shift、enter三个键完成工作表的名称提取。

这里的重点是要新增二个名称，一个是sheet，获取表；另一个名称是sheetname，获取表名。另外呢，这是一个数组，所以要同时按下ctrl、shift、enter三个键完成工作表的名称提取。

二、VBA代码提取法，代码如下：

Sub 工作表名获取()

Dim k

k = 3 '//从第4行开始列出工作表名

For Each sh In Sheets

If sh.Name <> "汇总" Then '//汇总工作表名不列出

k = k + 1

Cells(k, 1) = sh.Name '//A4单元格中开始列出工作表名

End If

Next1

End Sub

可以看出，如果会VBA，肯定VBA法更简单了。

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report