excel中子表名称汇总在sheet1

发布网友发布时间：2022-04-24 19:39

共2个回答

热心网友时间：2023-10-08 22:56

插入模块，将此过程粘贴运行宏即可
sub 生成表名称（）
Dim mysheet As Worksheet
Dim Rowindex_1, Columndex_1, StartRowindex As Integer
Dim j As String

Rowindex_1 = 2 ''''定义菜单起始行数
Columndex_1 = 2 ''''定义菜单所在列

StartRowindex = Rowindex_1

Sheets("首页").Select '“首页”请改成你表中需要生成目录的名称，否则将出现错误
Columns(Columndex_1).ClearContents
Columns(Columndex_1).NumberFormatLocal = "@"
For Each mysheet In Worksheets
If Rowindex_1 = StartRowindex Then
Cells(Rowindex_1 - 1, Columndex_1) = "工作表名称"
Else
Cells(Rowindex_1 - 1, Columndex_1).Select
Selection = mysheet.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=mysheet.Name & "!a1", TextToDisplay:=mysheet.Name '建立超级链接
End If
Rowindex_1 = Rowindex_1 + 1
Next mysheet
end sub

拿分来吧！

热心网友时间：2023-10-08 22:57

在sheet1单元格，插入--超链接--本文档中的位置，选择表名即可。