计算超链接

Question

插入的超链接有一个小问题。如果我从一张空白纸开始并插入一个超链接，然后使用两个单独的复制/粘贴将其复制到另外两个单元格：

Sub hyper1()
    Cells.Clear
    With ActiveSheet
        .Hyperlinks.Add Anchor:=Range("A1"), Address:="http://www.cnn.com/", TextToDisplay:="News"
        Range("A1").Copy Range("A2")
        Range("A1").Copy Range("A3")
        MsgBox .Hyperlinks.Count
    End With
End Sub

三个单元格被填满，Excel 正确地将超链接的数量报告为 3。

但是，如果我用一个复制/粘贴填充后两个单元格：

Sub hyper2()
    Cells.Clear
    With ActiveSheet
        .Hyperlinks.Add Anchor:=Range("A1"), Address:="http://www.cnn.com/", TextToDisplay:="News"
        Range("A1").Copy Range("A2:A3")
        MsgBox ActiveSheet.Hyperlinks.Count
    End With
End Sub

同样的三个单元格被填充，但 Excel 报告的超链接数为 2!!

哪个坏了，Excel 2007 还是我的电脑？？

Answer 1

Sub hyper3()
    Cells.Clear
    With ActiveSheet
        .Hyperlinks.Add Anchor:=Range("A1"), Address:="http://www.cnn.com/", TextToDisplay:="News"
        Range("A1").Copy Range("A2,A3")
        MsgBox ActiveSheet.Hyperlinks.Count
    End With
End Sub

逗号分隔将它们分成两个范围而不是一个

Answer 2

我怀疑这是因为在第二个宏中，超链接被复制为单个范围对象，而不是两个单独的范围（如第一个）。

Excel 会将其视为 Range 对象（表示指定超链接所附加到的范围）。因此，它会将其视为一个超链接而不是两个。

如果在宏运行后单击单元格 A2 或 A3 中的任何一个，您可以看到这一点（它们会同时改变颜色，表明超链接已被选中）。