如何在当前单元格上使用 HYPERLINK 和 VLOOKUP？答案

【问题标题】：How to use HYPERLINK and VLOOKUP on current cell?如何在当前单元格上使用 HYPERLINK 和 VLOOKUP？
【发布时间】：2021-01-25 20:16:31
【问题描述】：

鉴于这个带有列表的跟踪标签：

如何添加超链接，这样如果我点击OBS1001，它将指向名为Repository的标签页

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

【问题讨论】：

标签： excel excel-formula hyperlink excel-2007

【解决方案1】：

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

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

编辑：VBA 方法。

如果你想在代码单元格中添加超链接，请使用下面的子代码。

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

【讨论】：

是否有机会针对代码列？我的意思是，我将直接在 Code 列上添加超链接，而不添加新列，因为我有 2000 多个项目。
那么你必须使用VBA宏。没有办法通过公式。
我明白了。非常感谢。
@AlexanderPaudak 检查我为VBA 解决方案编辑的答案。
在excel中，标签名不能有空格吗？例如我的标签名称是Selenium Repo，如果我使用你给=HYPERLINK("#Selenium Repo!A" & MATCH(A2,'Selenium Repo'!A:A,0),A2)的那个，它给我reference not valid