请求基础VBA代码：将活动单元格转为对应工作表超链接

我来帮你搞定这个需求！针对你说的场景，我写了一段完整且带注释的VBA代码，同时会一步步解释每个部分，方便你理解：

Sub MakeHyperlink()
    Dim targetSheetName As String
    Dim ws As Worksheet
    Dim foundSheet As Boolean
    
    ' 获取活动单元格的内容，同时去掉前后空格避免匹配失误
    targetSheetName = Trim(ActiveCell.Value)
    
    ' 先检查活动单元格是否为空，防止后续报错
    If targetSheetName = "" Then
        MsgBox "活动单元格内容不能为空，请输入目标工作表名称！", vbExclamation
        Exit Sub
    End If
    
    ' 遍历工作簿内所有工作表
    foundSheet = False
    For Each ws In ThisWorkbook.Worksheets
        ' 不区分大小写比对工作表名称（要严格区分的话，去掉LCase即可）
        If LCase(ws.Name) = LCase(targetSheetName) Then
            ' 给活动单元格添加超链接，指向目标工作表的A1单元格
            ActiveCell.Hyperlinks.Add _
                Anchor:=ActiveCell, _
                Address:="", _
                SubAddress:="'" & ws.Name & "'!A1", _
                TextToDisplay:=targetSheetName
            
            MsgBox "已成功创建指向工作表【" & ws.Name & "】的超链接！", vbInformation
            foundSheet = True
            Exit For ' 找到目标后直接退出循环，提升运行效率
        End If
    Next ws
    
    ' 如果遍历完没找到同名工作表，提示用户
    If Not foundSheet Then
        MsgBox "工作簿中不存在名为【" & targetSheetName & "】的工作表，请检查！", vbCritical
    End If
End Sub

代码关键部分说明 #

• 空值校验：先判断活动单元格是否为空，避免后续代码因为空值出现错误。
• 工作表遍历：用For Each ws In ThisWorkbook.Worksheets遍历所有工作表，比用索引计数更直观，也能适配工作表顺序变动的情况。
• 超链接创建：使用Hyperlinks.Add方法实现工作簿内跳转，SubAddress参数指定目标位置（这里选了目标工作表的A1单元格，你可以改成其他单元格比如"'!B5"），TextToDisplay设置超链接显示的文本就是单元格原本的内容。
• 结果反馈：无论成功还是失败都给用户明确的提示，避免摸不着头脑。

使用方法 #

1. 打开Excel后按下Alt + F11打开VBA编辑器
2. 右键左侧的工作簿名称，选择「插入」→「模块」
3. 把上面的代码粘贴到模块里，保存工作簿为.xlsm格式（启用宏的工作簿）
4. 返回Excel界面，选中要设置超链接的单元格并输入目标工作表名称，运行这个宏即可

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