平时工作中我们经常会遇到需要提取多个工作表名称的情况，下面介绍一下使用VBA快速提取的方法。

工具/原料

  • EXCEL2010及以上版本

方法/步骤

  1. 1

    以下表为例，需要将将所有工作表名称提取并放入名为“目录”的工作表内。

  2. 2

    我们在开发工具中打开Visual Basic，如果没有开发工具则在自定义功能区勾选。

  3. 3

    进入VBA界面，输入如下代码

    Sub ml()

        Dim sht As Worksheet, k&

        [a:a].ClearContents 

        [a:a].NumberFormat = "@"

         [a1] = "目录"

        k = 1

        For Each sht In Worksheets

            k = k + 1

            Cells(k, 1) = sht.Name

        Next

    End Sub

  4. 4

    插入一个按钮，并链接至刚才命名的sheet1.ml代码。

  5. 5

    将该EXCEL文件另存为xlsm格式。

  6. 6

    最后在“目录”工作表中点击该按钮即可看到自动提取的文件名。

    END

注意事项

  • 如果这篇经验对您有所帮助，请投票支持并转发帮助更多的人。
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。