Excel用VBA创建目录的操作,一步到位
来源:网络收集 点击: 时间:2024-03-21打开工作簿

看到有好几个工作表

然后按alt+F11打开宏编辑界面

然后插入模块

复制粘贴以下公式Sub 创建目录() Worksheets.Add Before:=Worksheets(1) ActiveSheet.Name = 目录 Worksheets(目录).Cells = Worksheets(目录).Cells.ClearFormats For i% = 1 To Worksheets.Count Worksheets(目录).Cells(i, 1) = Worksheets(i).Name Worksheets(目录).Cells(i, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=, SubAddress:= _ Worksheets(i).Name !A1, TextToDisplay:=Worksheets(i).Name Next Range(A1).Select Selection.Hyperlinks.Delete End Sub

回到Excel表格界面按快捷键alt+f8,打开宏执行对话框,并看到创建目录的按钮

单击执行

即可看到创建的目录

最后保存文件即可

有疑问请私信
EXCEL版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_362585.html