Excel - 从不同工作表和超链接上的单元格中提取数据答案

【问题标题】：Excel - Pull data from a cell on a different sheet and hyperlinkExcel - 从不同工作表和超链接上的单元格中提取数据
【发布时间】：2019-05-11 04:17:46
【问题描述】：

我知道如何使用公式=Sheet2!A2 从 Excel 中的单独工作表中提取数据。这会从我的 Sheet2 中提取我在 A2 单元格中的所有数据。但是是否可以从该单元格中提取数据并使用公式将其超链接到该单元格？我知道您可以手动链接它，但我正在尝试使我的工作表尽可能自动化。有什么帮助，谢谢。

【问题讨论】：

你的意思是超链接吗？只需右键单击，超链接并选择同一文档中的位置。
@SJR 对，但是有没有办法用公式来做到这一点，所以它有点自动化。
是的，你可以这样做，例如=HYPERLINK(Sheet2!A1,Sheet2!A1)
@SJR "无法打开指定的文件。"错误

标签： vba excel excel-formula excel-2010

【解决方案1】：

试试，

=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", ...) 函数的性质，它只会返回保存的工作簿中的工作表名称。即不是未保存的 Book1。

【讨论】：

【解决方案2】：

根据 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

由于偏移，这将在右侧的单元格中添加一个链接，并将使用 A2 中的值作为您将看到的标题。使用它，您可以创建超出单元格字符限制的 URL 链接。

【讨论】：

也感谢您的回复！