使用Excel VBA添加超链接

Question

我正在尝试将超链接添加到像这样的excel单元格，但出现错误：

rng.Formula = "=HYPERLINK(cell.Offset(0, 3).Value,"">"")"

基本上，超链接位于另一个单元格中，我想在新的超链接单元格中显示文本">" 。

Answer 1

您缺少一些双引号：

Sub dural()
    Dim rng As Range, cell As Range
    Set rng = Range("A1")
    Set cell = Range("A2")

    rng.Formula = "=HYPERLINK(""" & cell.Offset(0, 3).Value & ""","">""  )"

End Sub

例如：

Answer 2

尝试使用超链接集合：

Sheet1.Hyperlinks.Add Sheet1.Range("A1"), "http://longLinkAddressHere", , , ">"