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

我知道如何使用公式

=Sheet2从excel中的单独工作表中提取数据！A2

。从我的表格2中提取A2单元格中的所有数据。但是有没有办法从该单元格中提取数据并使用公式将其超链接到该单元格？我知道你可以手动链接它，但我正在努力使我的工作表尽可能自动化。任何有帮助的，谢谢。

试试看

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

您还可以使用基于信息函数单元格的长子公式解析出工作表名称

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

---

由于

单元格（“filename”，…）

函数的性质，它只会从保存的工作簿返回工作表名称。i、 e.不是未保存的书籍1。

根据URL的长度，有时=超链接由于单元格中的字符限制仍然无法工作

这不是我的代码，但我记不起代码的来源：

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链接。

您是指超链接吗？只需单击鼠标右键，超链接并选择同一文档中的位置。@SJR是的，但是有没有一种方法可以使用公式来实现它，使其自动化。是的，您可以这样做，例如

=Hyperlink（Sheet2！A1，Sheet2！A1）

@SJR“无法打开指定的文件。”错误谢谢您的回复！