excel - 如何在当前单元格上使用 HYPERLINK 和 VLOOKUP？

Question

鉴于此 追踪带有列表的选项卡:

如何添加超链接，这样如果我点击 OBS1001 ，它将指向名为 的选项卡存储库

我已经用过类似的东西 =HYPERLINK(VLOOKUP("OBS1001";'Repository'!$B$3:$Y$1052;1;0);"OBS1001")但我得到了#N/A

Answer 1

VLookup()仅从工作表 Repository 返回一个值这不是超链接的任何有效引用。试试下面的公式 -

=HYPERLINK("#Repository!A" & MATCH(A2,Repository!A:A,0),A2)

Edit: VBA Approach.

如果要向代码单元添加超链接，请使用下面的子。

Sub AddHyperlinks()
Dim lRow As Long, hRow As Long
Dim Rng As Range

lRow = Range("A1").End(xlDown).Row

    For Each Rng In Range("A2:A" & lRow)
        hRow = Application.WorksheetFunction.Match(Rng, Range("Repository!A:A"), 0)
        ActiveSheet.Hyperlinks.Add Anchor:=Range(Rng.Address), _
                    Address:="#Repository!A" & hRow, _
                    ScreenTip:=Rng.Value2, _
                    TextToDisplay:=Rng.Value2
    Next
End Sub