如何根据单元格值自动超链接到当前工作簿内的对应工作表

方法1：使用HYPERLINK函数（无需代码，推荐新手使用） #

• 假设你的章节编号存储在A列，从A2单元格开始，在相邻空白列（比如B2单元格）输入以下公式：
  =HYPERLINK("#'"&A2&"'!A1",A2)
• 下拉填充公式到所有需要添加超链接的行即可

公式说明：

• # 代表指向当前工作簿内部位置
• 单引号是为了兼容包含特殊字符/空格的工作表名，避免跳转错误
• !A1 代表点击后跳转到对应工作表的A1单元格，你可以根据需要修改为其他目标单元格
• 第二个参数A2 是超链接显示的文本，和原章节编号保持一致

方法2：使用VBA批量生成（适合直接给现有单元格加超链接，无需辅助列） #

如果你不想新增辅助列，可以用宏直接给选中的单元格批量添加超链接：

1. 选中所有存储章节编号的单元格区域
2. 按Alt+F11打开VBA编辑器，右键点击当前工作簿名称→「插入」→「模块」
3. 粘贴以下代码后按F5运行：

Sub 批量添加工作表超链接()
    Dim rng As Range
    For Each rng In Selection
        ' 跳过不存在对应工作表的单元格，避免报错
        On Error Resume Next
        ActiveSheet.Hyperlinks.Add _
            Anchor:=rng, _
            Address:="", _
            SubAddress:="'" & rng.Value & "'!A1", _
            TextToDisplay:=rng.Value
        On Error GoTo 0
    Next
End Sub

• 运行后所有存在对应工作表的编号单元格会自动加上超链接，无对应工作表的单元格保持原样
• 若要保存宏，需要将文件另存为.xlsm格式

注意事项 #

• 请确保工作表名称和单元格内的章节编号完全一致，不要有多余的前后空格、格式差异，否则会跳转失败
• 如果点击超链接提示「引用无效」，优先检查对应工作表是否存在、名称是否和单元格内容完全匹配

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