如何批量生产excel的sheet名称目录链接

方法/步骤 1 打开excel文档，创建若干个sheet页,例如sheet1,a1,a2,a3等 2 点击菜单中的开发工具菜单，点击查看代码按钮 3 如果找不到开发工具菜单，请点击文件->选项->自定义功能区->主选项卡中，选中开发工具复选框 4 录入以下下代码。目的是用

在使用excel制作表格数据时，有时候会分许多sheet，但是一旦sheet页多时，不论查找还是选中都很不方便。

材料/工具

电脑excel软件

可以使用VBA来实现，选中有连接的单元格区域，执行下面的宏就可以了： Sub 更新所有表的超级链接() Dim c As Range, st As Worksheet For Each c In Selection.Cells If c.Value "" Then If c.Hyperlinks.Count > 0 Then c.Hyperlinks(1).SubAdd

方法

首先打开电脑，再打开excel文档后，创建几个sheet页,例如sheet1,a1,a2,a3等；

使用VBA可完成操作目标。 按照如下步骤操作： 在excel文件中打开vba编辑器(可利用快捷键alt+F11) 点击左侧sheet1，复制如下代码到右侧编辑框中（如下图所示） 运行该代码（点击播放按钮或者直接按F4） 回到sheet1中即可看到已生成所有sheet名称

然后点击菜单里面的“开发工具”菜单，然后找到“查看代码”并点击；

Sub 创建工作表目录() ' If Sheets(1).Name "目录" Then yn = MsgBox("【目录】工作表不存在，建立【目录】吗？", vbYesNo, "建立【目录】工作表") If yn = vbYes Then Sheets.Add(Sheets(1)).Name = "目录" Columns("A:A").Select With Selecti

如果找不到开发工具菜单的话，请点击文件，然后点击选项，再点击自定义功能区，再点击主选项卡中，选中开发工具复选框；

选中要插入链接的第一个工作表标签 按住SHIFT键的同时 点击最后一个工作表的标签 在某一单元格内输入 =HYPERLINK("#目录!A1","目录!A1") 回车 所有的工作表就都加入了返回目录的链接。

录入以下代码，目的是用来在sheet1页中的第一列生成sheet名字列Sub createmulu() For i = 1 To Sheets.CountCells(i, 1) = Sheets(i).Name Next End Sub；

使用VBA可完成操作目标。 按照如下步骤操作： 在excel文件中打开vba编辑器(可利用快捷键alt+F11) 点击左侧sheet1，复制如下代码到右侧编辑框中（如下图所示） 运行该代码（点击播放按钮或者直接按F4） 回到sheet1中即可看到已生成所有sheet名称

在代码编辑窗口中点击绿色运行按钮，或者按F5键，运行后sheet1如下图所示：

复制下面的公式至各工作表中需要显示超链接的空白单元格中，如：A1 =HYPERLINK("#sheet1!A1","返回目录")

在sheet1中B2单元格中定义超链接函数，录入=HYPERLINK("#"&A2&"!A1",A2)；

方法/步骤 1 该方法主要通过用get.workbook函数自定义一个名称实现，首先打开要创建目录的工作簿，并新建一个工作表，重命名为目录，并填好相应名称。 2 然后 点击 < 定义名称> 在弹出的新建名称窗口中 名称命名为（目录），在引用位置输入=get.

鼠标选中B1单元格中，将鼠标放在单元中右下侧，当鼠标变为十字时，向下拖动鼠标；

在SHEET1工作表中，按Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100) 确定 在目录工作表（即sheet1）的A2单元格输入公式：=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(

此时点击B列的sheet名称为超链接，就可以打开相应的sheet页；

具体步骤如下： 需要准备的材料分别是：电脑、Excel表格。 1、首先打开需要编辑的Excel表格，进入到编辑页面中。 2、然后右键单击想要插入超链接的单元格，选择“超链接”。 3、然后在弹出来的窗口中点击“要显示的文字”，输入想要显示的文字，选择

点击shift键，选中除sheet1外的其他sheet页，在A1单元格中录入=HYPERLINK("#sheet1!A1","返回目录")，然后回车，所有选中sheet页中便成功添加“返回目录”超链接。

按ALT+F11，然后选你的工作表，把下面的代码粘贴进去，然后回到EXCEL中按ALT+F8，执行宏Content即可 Sub Content() '创建目录 ' Set NewSheet = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet) NewSheet.Name = "Content" NewSheet.Cells(1,

扩展阅读，以下内容您可能还感兴趣。

EXCEL链接到工作表中的目录怎么做？

具体步骤如下：

需要准备的材料分别是：电抄脑、Excel表格。

1、首先打开需要编辑的Excel表格，进入到编辑页面中。

袭查看大图" class="ikqb_img_alink">

2、然后右键单击想要插入超链接的单元格，选择知“超链接”。

3、然后在弹出来的窗口中点击“要显示的文字”，输入想要显示的文字，选择“文档中的位置”，

4、然后选择超链接的工作表，回车确定。

5、然后就完道成了。

EXCEL 同个工作薄如何批量超链接，即在目录表里点页码Sheet1、Sheet2、Sheet3，即可跳到相应的工作表

按ALT+F11，然后选你的来工作表，把下面源的百代码粘贴进去，然后回度到EXCEL中按ALT+F8，执行问宏Content即可

Sub Content()

'创建目答录

'

Set NewSheet = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet)

NewSheet.Name = "Content"

NewSheet.Cells(1, 1).Value = "Content"

For i = 2 To Sheets.Count

NewSheet.Cells(i, 1).Value = i - 1

With Worksheets(1)

.Hyperlinks.Add Anchor:=.Cells(i, 2), Address:="", _

SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name

End With

Next i

End Sub

Excel 怎么提取工作表名并建立超连接来做成目录

需要用到VBA

这是我以前在网上找到的e799bee5baa6e79fa5e98193e788e69d83313333373734代码

'

 If Sheets(1).Name <> "目录" Then

 yn = MsgBox("【目录】工作表不存在，建立【目录】吗？", vbYesNo, "建立【目录】工作表")

 If yn = vbYes Then

 Sheets.Add(Sheets(1)).Name = "目录"

 Columns("A:A").Select

 With Selection

 .HorizontalAlignment = xlCenter

 .VerticalAlignment = xlCenter

 .ColumnWidth = 6

 End With

 Columns("B:B").Select

 With Selection

 .HorizontalAlignment = xlLeft

 .VerticalAlignment = xlCenter

 .NumberFormatLocal = "@"

 .ColumnWidth = 36

 End With

 Range("A1").Select

 Else

 End

 End If

 Else

 yn = MsgBox("【目录】工作表已存在，更新数据吗？", vbYesNo, "更新目录数据")

 If yn = vbNo Then End

 End If

 Sheets("目录").Select

 Columns("A:B").Select

 Selection.ClearContents

 Range("A1").Select

 Cells(1, 1).Value = "序号"

 Cells(1, 2).Value = "工作表名称"

 Application.ScreenUpdating = False

For i = 2 To Sheets.Count

 Sheets("目录").Select

 Cells(i, 1).Value = i - 1

 Cells(i, 2).Value = Sheets(i).Name

 Cells(i, 2).Select

 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

 "'" & Cells(i, 2).Value & "'!A1", TextToDisplay:=Cells(i, 2).Value

Next i

 Application.ScreenUpdating = True

 yn = MsgBox("【目录】工作表已更新，按“Ctrl+z”返回此【目录】！" , vbOKOnly, "查询工作表")

End Sub

EXCEL中我想把工作表一的A作为目录，怎样批量设置超链接A1对应后面的sheet1，A2对应sheet2……？

请参考如下步骤在来第一个工作表自动批量生成指向后续各个工源作表的超链目录：

1、把光标放在第一个工作表希望插入目百录的地方；

2、键入Alt+F11打开VBA编辑器，然后选择菜单“插入 - 模块”；

3、在度代码编辑区粘贴如下问代码：

Option Explicit

Sub AutoGenerateHyperlinks()

Dim nIndex As Integer

Dim oRange As Range

For nIndex = 2 To Sheets.Count

Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)

oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name

Next

End Sub

4、键入F5运行，再键入Alt+F11切换回第一个工作表，检查目答录超链是否自动建立成功。

EXCEL工作簿中有多个工作表，如何可以自动生成带超链接的目录

我有个方法，百希望能帮你解决。首先最好是每张工作表的名字为可以区分的名字，比如说第度一张的客户叫张一，工作表的名字就叫张一，第二张就叫张二，一次问类推，这张为举例的图片，注答意最左边的位置，然后右键单击，在回这里可以选择工作表，点开“其他工作表”，选中你需要的表格就可以了。希望对答你有帮助。