EXCEL VBA ——提取工作表名字

提取工作表名：有若干工作表，要将表名提取到一个空白工作表中。

开发工具选项卡——Visual Basic——右键——插入——模块——粘贴宏——运行子过程/字窗口

粘贴宏：

Sub GetShtByVba()

Dim sht As Worksheet, k As Long

Application.ScreenUpdating = False

k = 1

Range("a:b").Clear '清空数据

Range("a:a").NumberFormat = "@" '设置文本格式

For Each sht In Worksheets '遍历工作表取表名

k = k + 1

Cells(k, 1) = sht.Name

Next

Range("a1:b1") = Array("工作表名", "是否删除")

Application.ScreenUpdating = True

End Sub

本期关键词：#EXCEL#VBA#宏#提取所有工作表名