Excel宏创建跨工作表超链接报错：无效调用或参数求助

问题根源分析 #

你的宏报错及变量为空的原因集中在这几点：

• SubAddress参数格式错误：Hyperlinks.Add的SubAddress要求是工作表名!单元格地址的格式（比如TB!Fines），但你代码里取的是单元格的内容，不是地址，直接导致参数无效。
• 变量名拼写错误：声明的变量是RDDef，但代码里调用的是RDRef，未声明的变量默认值为空，这就是RDRef为空的原因。
• ActiveCell使用不当：选中工作表后，ActiveCell不一定等于当前循环的reference单元格，依赖Select/ActiveCell会导致逻辑混乱。
• 不符合需求的定位逻辑：你需要点击"TB"跳转至TB工作表的"Fines"单元格，但原代码用的是逐行的A列单元格，和需求不匹配。

修正后的代码 #

Option Explicit

Sub CreateCrossSheetHyperlinks()
    Dim wsQueries As Worksheet
    Dim reference As Range
    Dim x As Long, y As Long
    
    ' 绑定目标工作表，避免依赖Select/Activate
    Set wsQueries = ThisWorkbook.Worksheets("Queries")
    x = 2
    y = 2
    
    ' 遍历Queries工作表的B3:B7区域
    For Each reference In wsQueries.Range("B3:B7").Cells
        If reference.Value = "TB" Then
            ' 直接指向TB工作表的Fines单元格
            wsQueries.Hyperlinks.Add Anchor:=reference, _
                                    Address:="", _
                                    SubAddress:="TB!Fines", _
                                    TextToDisplay:="TB"
        Else
            ' 含空格的工作表名必须用单引号包裹，指向R&D Schedule的逐行A列单元格
            wsQueries.Hyperlinks.Add Anchor:=reference, _
                                    Address:="", _
                                    SubAddress:="'R&D Schedule'!A" & y, _
                                    TextToDisplay:="R&D"
        End If
        x = x + 1
        y = y + 1
    Next reference
End Sub

关键修正说明 #

1. Option Explicit：强制声明所有变量，从根源避免变量名拼写错误。
2. 直接操作工作表对象：用Set wsQueries = ...替代Select，代码更稳定，不会受当前选中单元格的影响。
3. 正确的SubAddress格式：
   • 无空格的工作表名：直接写工作表名!单元格地址（如TB!Fines）
   • 含空格的工作表名：必须用单引号包裹（如'R&D Schedule'!A2）
4. 匹配需求的定位：TB跳转至固定的Fines单元格，R&D部分保留你原有的逐行A列逻辑（如果需要固定单元格，直接替换成'R&D Schedule'!目标单元格地址即可）。

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