Excel - 从不同 sheet 和超链接上的单元格中提取数据

Excel - Pull data from a cell on a different sheet and hyperlink

我知道如何使用公式 =Sheet2!A2 从 excel 中的单独工作 sheet 中提取数据。这会从我的 Sheet2 中提取 A2 单元格中的任何数据。但是是否可以使用公式从该单元格中提取数据并将其 hyperlink 到该单元格?我知道您可以手动 link 它,但我正在努力让我的 sheet 尽可能自动化。有什么帮助,谢谢。

试试,

=hyperlink("#"&address(row(sheet2!a2), column(sheet2!a2), 4, 1, "sheet2"), sheet2!a2)

也可以根据信息函数CELL,解析出带有长子公式的工作表名。

=hyperlink("#"&address(row(sheet2!a2), column(sheet2!a2), 4, 1, mid(cell("filename", sheet2!a2), find("]", cell("filename", sheet2!a2))+1, 255)), sheet2!a2)

由于 CELL("filename", ...) 函数的性质,它只会 return 来自已保存工作簿的工作表名称。即不是未保存的 Book1。

根据 URL 的长度,由于单元格中的字符限制,有时 =HYPERLINK 仍然无法使用。

这不是我的代码,但我不记得来源了:

Sub insertVeryLongHyperlinks()
Dim allCells As Range
Dim curCell As Range
Dim longHyperlink As String
Dim title As String

Set allCells = Range("A2:A2") '## Modify as needed

For Each curCell In allCells
    title = Cells(curCell.Row, "A").Value '## Modify row for visible text of hyperlink
    longHyperlink = curCell.Value

If Len(curCell) > 1 Then

    curCell.Hyperlinks.Add Anchor:=curCell.Offset(0, 1), _
                Address:=longHyperlink, _
                SubAddress:="", _
                ScreenTip:=title, _
                TextToDisplay:=title

Else
End If
Next

'MsgBox "Hyperlinks updated!"

End Sub

由于偏移量,这会将 link 添加到右侧的单元格中,并将使用 A2 中的值作为标题。使用此功能,您可以创建超出单元格字符限制的 URL link。