如何借助VBA快速提取工作表名称

2025-04-03 18:24:19

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

如何借助VBA快速提取工作表名称
如何借助VBA快速提取工作表名称

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

如何借助VBA快速提取工作表名称

3、进入VBA界面,输入如下代码Sub ml() Dim sht As Worksheet, k& [a:a].ClearContents [a:a].Num芟鲠阻缒berFormat = "@" [a1] = "目录" k = 1 For Each sht In Worksheets k = k + 1 Cells(k, 1) = sht.Name NextEnd Sub

如何借助VBA快速提取工作表名称
如何借助VBA快速提取工作表名称

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

如何借助VBA快速提取工作表名称
如何借助VBA快速提取工作表名称

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

如何借助VBA快速提取工作表名称

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

如何借助VBA快速提取工作表名称
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢