Копировать гиперссылки из исходного списка в список поискового индекса.

Question

Я создал поисковый индекс (используя формулы) из списка продуктов, к которым прикреплены гиперссылки (созданные с помощью «Вставить гиперссылку»). Однако поисковый индекс создается без гиперссылок.

Оба списка находятся на одном листе.

Я хотел бы макрос, который гарантирует, что гиперссылки передаются при создании поискового индекса. Мне также хотелось бы, чтобы при выполнении поиска правильные гиперссылки оставались с продуктом (на данный момент, если я вручную помещаю гиперссылки в поисковый индекс, когда я использую поиск, гиперссылки остаются в ячейке, а не с продукт, к которому они относятся).

Кроме того, я увидел в другом потоке немного макроса, который останавливает автоматическое форматирование шрифта в стиле гиперссылки. Было бы хорошо, если бы это могло быть включено.

Это макрос, который я пробовал:

Sub CopyHyperlinks()
Dim Source As Range
Dim Destination As Range
Dim SearchRange As Range
Set SearchRange=Sheets(1).Range("E4:E68")
Set Source=SearchRange(1,1)
Set Destination=Sheets(1).Range("B4")
For Each Source In SearchRange
    If Source.Hyperlinks.Count>0 Then
        Destination.Hyperlinks.Add Destination
        Source.Hyperlinks(1).Address,,,Source.Text
    End If
    Set Destination=Destination(2,1)
Next Source
End Sub

Я нашел этот макрос после поиска в интернете и попытался изменить его в соответствии с тем, что мне нужно. Когда я его использую, кажется, что он копирует гиперссылку (автоформатирование шрифта появляется в тексте), но гиперссылка не скопирована полностью)