如何将多列单元格批量超链接到另一工作表的匹配单元格？

原代码存在的核心问题 #

1. 匹配逻辑局限：使用WorksheetFunction.Match只能返回首个匹配项的行号，遇到重复值时无法处理后续匹配，导致仅首个重复单元格能生成超链接。
2. 范围与列匹配错误：
   • 仅遍历了APRILZ的C列，未覆盖要求的C-I列；循环行范围是2到最后一行，而非指定的4-14行。
   • 错误匹配DATABASE的D列，而非需求中的A列。
3. 文本显示逻辑错误：TextToDisplay引用了DATABASE的D列对应行，行号却使用APRILZ的循环变量，逻辑不对应。

修正后的VBA代码 #

Sub AddHyperlinks_Fixed()
    Dim targetCell As Range
    Dim searchRange As Range
    Dim foundCell As Range
    Dim firstFoundAddr As String
    
    ' 定义目标区域：APRILZ工作表4-14行，C-I列
    Dim targetArea As Range
    Set targetArea = Sheets("APRILZ").Range("C4:I14")
    
    ' 定义查找范围：DATABASE工作表A列所有非空单元格
    Set searchRange = Sheets("DATABASE").Range("A1:A" & Sheets("DATABASE").Range("A" & Rows.Count).End(xlUp).Row)
    
    ' 遍历目标区域的每个单元格
    For Each targetCell In targetArea
        ' 跳过空单元格
        If targetCell.Value <> "" Then
            ' 在查找范围中匹配当前单元格的值
            Set foundCell = searchRange.Find(What:=targetCell.Value, LookIn:=xlValues, LookAt:=xlWhole)
            If Not foundCell Is Nothing Then
                firstFoundAddr = foundCell.Address
                ' 为当前单元格添加超链接
                Sheets("APRILZ").Hyperlinks.Add _
                    Anchor:=targetCell, _
                    Address:="", _
                    SubAddress:="'DATABASE'!" & foundCell.Address, _
                    TextToDisplay:=targetCell.Value
                
                ' 如果需要匹配所有重复值（可选：为每个重复值单元格链接到对应匹配项）
                ' 取消注释以下代码块，可处理一个单元格值对应多个匹配项的场景
                'Do
                '    Set foundCell = searchRange.FindNext(foundCell)
                '    If foundCell.Address <> firstFoundAddr Then
                '        ' 此处可添加逻辑，比如创建多个超链接或提示
                '    End If
                'Loop While Not foundCell Is Nothing And foundCell.Address <> firstFoundAddr
            End If
        End If
    Next targetCell
End Sub

代码说明 #

• 范围精准控制：直接指定C4:I14为目标处理区域，避免多余行/列的遍历。
• 重复值处理：使用Find方法替代Match，可灵活定位匹配项；若需处理一个值对应多个匹配的场景，可启用注释的FindNext循环逻辑。
• 逻辑修正：TextToDisplay直接使用当前单元格的值，匹配需求；查找范围改为DATABASE的A列，符合用户要求。

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