如果 Sheet1 中的值与 Sheet2 中的值匹配，则条件超链接

发布于 2025-01-16 23:08:03 字数 630 浏览 2 评论 0原文

当工作表 1 的 B 列（数字）中的值与工作表 2 的 A 列（数字）中的值匹配时，我想在工作表 1 的 A 列（链接）中创建一个条件超链接，指向工作表 2 中的匹配单元格。

工作表 1 Sheet 2

在第一个实例中，我什至似乎无法创建超链接2 张之间... Sheet 1 使用函数库中的超链接函数超链接到 Sheet 2

我还尝试使用 MATCH 函数至少确认我是否可以准确地引用不同工作表中的匹配单元格并且它似乎有效；但似乎无法（1）使工作表之间的超链接正常工作以及（2）在存在匹配值时有条件地创建超链接。在此处输入图像描述

不确定我是否还需要使用 INDEX 或宏；只是对如何实现我的总体目标有点迷失，并且希望社区提供任何建议<3

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

离不开的别离 2025-01-23 23:08:03

在公式方式中，您可以尝试使用函数 =CELL("address",INDEX(MATCH))) 返回匹配单元格的地址，然后创建指向它的链接。

另请注意，如果您想在工作簿中创建链接，请在单元格地址前使用“#”。

=HYPERLINK("#"&CELL("address",INDEX(Sheet2!$A$2:$A$6,MATCH(B2,Sheet2!$A$2:$A$6,0))),B2)

Sheet1：

In formula way, you can try function =CELL("address",INDEX(MATCH))) to return matched cell's address, then create link to it.

One more note, if you want to create link within your workbook, use '#" before cell's address.

=HYPERLINK("#"&CELL("address",INDEX(Sheet2!$A$2:$A$6,MATCH(B2,Sheet2!$A$2:$A$6,0))),B2)

Sheet1:

回复收藏 0 原文

风筝在阴天搁浅。 2025-01-23 23:08:03

或宏方式：

Sub FindnLink()
Dim a As String
Set source_range = ThisWorkbook.Sheets("Sheet1").Range("B2:" & Range("B2").End(xlDown).Address)
Set search_range = ThisWorkbook.Sheets("Sheet2").Range("A2:" & Range("A2").End(xlDown).Address)

For Each cell In source_range
   cell.Offset(0, -1).Select
   a = cell.Value
    Excel.ThisWorkbook.Sheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="", _
    SubAddress:="Sheet2!" & search_range.Find(What:=cell.Value, After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Address, _
    TextToDisplay:=a
Next cell

End Sub

or Macro way:

Sub FindnLink()
Dim a As String
Set source_range = ThisWorkbook.Sheets("Sheet1").Range("B2:" & Range("B2").End(xlDown).Address)
Set search_range = ThisWorkbook.Sheets("Sheet2").Range("A2:" & Range("A2").End(xlDown).Address)

For Each cell In source_range
   cell.Offset(0, -1).Select
   a = cell.Value
    Excel.ThisWorkbook.Sheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="", _
    SubAddress:="Sheet2!" & search_range.Find(What:=cell.Value, After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Address, _
    TextToDisplay:=a
Next cell

End Sub

回复收藏 0 原文

~没有更多了~