以下是满足需求的完整VBA代码，包含超链接刷新逻辑，以及绑定按钮的步骤：

完整VBA代码 #

Sub AddMatchingHyperlinks()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim rngSource As Range
    Dim rngTarget As Range
    Dim cellSource As Range
    Dim cellTarget As Range
    
    ' 定义源工作表与目标范围
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set rngSource = wsSource.Range("B2:B15")
    
    ' 清除原有超链接，避免重复
    rngSource.Hyperlinks.Delete
    
    ' 遍历源单元格
    For Each cellSource In rngSource
        If cellSource.Value = "" Then GoTo NextCell
        
        ' 遍历所有其他工作表
        For Each wsTarget In ThisWorkbook.Worksheets
            If wsTarget.Name <> wsSource.Name Then
                Set rngTarget = wsTarget.Range("B2:B110")
                
                ' 精确查找同值单元格
                Set cellTarget = rngTarget.Find( _
                    What:=cellSource.Value, _
                    LookIn:=xlValues, _
                    LookAt:=xlWhole, _
                    MatchCase:=False)
                
                ' 找到匹配则添加超链接
                If Not cellTarget Is Nothing Then
                    wsSource.Hyperlinks.Add _
                        Anchor:=cellSource, _
                        Address:="", _
                        SubAddress:=wsTarget.Name & "!" & cellTarget.Address, _
                        TextToDisplay:=cellSource.Value
                    Exit For ' 找到第一个匹配后停止当前工作表查找，如需所有匹配可删除此行
                End If
            End If
        Next wsTarget
        
NextCell:
    Next cellSource
    
    MsgBox "超链接刷新完成！", vbInformation
End Sub

代码关键说明 #

• 清除旧链接：先移除源范围的所有超链接，避免重复叠加
• 空值跳过：源单元格为空时直接跳过，不执行查找
• 精确匹配：使用LookAt:=xlWhole确保完全匹配单元格内容，而非部分匹配
• 工作簿内跳转：通过SubAddress指定目标工作表和单元格，实现内部跳转
• 单匹配优先：找到第一个匹配单元格后停止当前工作表的查找，如需匹配所有同值单元格，删除Exit For即可（注：同一单元格添加多个超链接会被覆盖，若需多匹配可改为添加备注或其他形式）

绑定按钮步骤 #

1. 点击Excel顶部的「开发工具」选项卡（未显示则通过「文件→选项→自定义功能区」勾选启用）
2. 点击「插入」，选择「表单控件」下的「按钮（窗体控件）」
3. 在Sheet1上拖动绘制按钮，弹出「指定宏」窗口后选择AddMatchingHyperlinks，点击确定
4. 右键按钮选择「编辑文字」，将按钮名称改为「刷新超链接」即可

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