Подсчет гиперссылок

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 правильно сообщает число гиперссылок как .

Однако, если я заполняю вторые две ячейки с одним Copy/Paste:

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 сообщает число гиперссылок как !!

Что не работает, 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 будет рассматривать это как объект диапазона (который представляет диапазон, к которому привязана указанная гиперссылка). Поэтому он будет считать это одной гиперссылкой вместо двух.

Вы можете увидеть это, если вы нажмете на одну из ячеек A2 или A3 после запуска макроса (они одновременно изменят цвет, указывая на то, что выбрана гиперссылка).