excel - 如何克服Excel中超链接的限制？

Question

我有超过 100000 个单元格的链接列表。

我必须为所有这些内容提供超链接，但在 Excel 中，限制为 65530每个工作表的超链接。

如何克服限制或如何使用 VBA 合并具有相同值的单元格？

Sub AddHyperlinks()

    Dim myRange As Range
    Set myRange = Range("A1")
    Dim hText As Variant

    Do Until IsEmpty(myRange)

        hText = Application.VLookup(myRange.Value, Worksheets("Sheet2").Range("A:B"), 2, False)

        If IsError(hText) Then
            hText = ""
        Else
            ActiveSheet.Hyperlinks.Add Anchor:=myRange, Address:="http://" + hText, TextToDisplay:=myRange.Text
            hText = ""
        End If

        Set myRange = myRange.Offset(1, 0)
    Loop

End Sub

Answer 1

解决方案如@Rory所述: 使用单元格中的 HYPERLINK 函数通过公式模拟超链接。

=HYPERLINK(url, displaytext)

这有效地绕过了 Excel 对“硬编码”超链接的内置限制。在遇到臭名昭著的错误 1004 后刚刚对此进行了测试:

Application-defined or object-defined error

尝试在工作表中创建超过 100k 个超链接时。