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

Question

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



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

如何克服限制或如何使用 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+ 超链接时。