如何批量创建Excel工作表链接？解决@开头工作表链接故障

一、修复单个HYPERLINK公式失效问题 #

当工作表名以@开头时，Excel需要对特殊名称做格式适配，正确的公式格式为：

=HYPERLINK("#'@Sheet5'!A1", "跳转至@Sheet5")

或通过单元格引用动态生成：

=HYPERLINK("#'"&B1&"'!A1", "跳转至"&B1)

关键说明： #

• #代表当前打开的工作簿，避免因工作簿路径或状态（打开/关闭）导致的链接失效
• 必须用单引号'包裹带特殊字符（如@、空格、括号等）的工作表名，确保Excel能正确识别目标工作表

你之前尝试的公式错误在于单引号的位置，正确结构是#'工作表名'!单元格地址，而非拆分包裹工作簿与工作表名称。

二、批量创建工作表链接方案 #

针对大规模工作表列表，提供两种高效实现方式：

1. 公式批量生成 #

假设Sheet6的A列（A2开始）为需要链接的工作表名列表，在B2单元格输入以下公式后下拉填充：

=HYPERLINK("#'"&A2&"'!A1", "跳转至"&A2)

该公式会自动适配所有带特殊字符（如@开头）的工作表名，无需手动调整格式。

2. VBA批量生成 #

若列表规模极大，VBA能更高效完成批量操作，代码如下：

Sub BatchCreateSheetLinks()
    Dim targetWs As Worksheet, ws As Worksheet
    Dim lastRow As Long, i As Long
    
    ' 指定存放链接的目标工作表（此处为Sheet6）
    Set targetWs = ThisWorkbook.Worksheets("Sheet6")
    ' 清空B列原有链接（可选操作）
    targetWs.Range("B2:B" & targetWs.Cells(targetWs.Rows.Count, "B").End(xlUp).Row).ClearContents
    
    ' 获取A列工作表名列表的最后一行
    lastRow = targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历列表生成链接
    For i = 2 To lastRow
        On Error Resume Next
        Set ws = ThisWorkbook.Worksheets(targetWs.Cells(i, "A").Value)
        On Error GoTo 0
        
        If Not ws Is Nothing Then
            ' 添加超链接到对应工作表的A1单元格
            targetWs.Hyperlinks.Add _
                Anchor:=targetWs.Cells(i, "B"), _
                Address:="", _
                SubAddress:="'" & ws.Name & "'!A1", _
                TextToDisplay:="跳转至" & ws.Name
        Else
            targetWs.Cells(i, "B").Value = "工作表不存在"
        End If
    Next i
End Sub

使用步骤：

1. 按Alt + F11打开VBA编辑器
2. 插入新模块，粘贴上述代码
3. 回到Excel界面，按Alt + F8执行BatchCreateSheetLinks宏

内容的提问来源于stack exchange，提问作者HattrickNZ