Как вставить столбец гиперссылок?

Question

Это кажется простым вопросом, но я не могу найти ответ. Как вставить кучу гиперссылок?

Пожалуйста, смотрите скриншот, который я разместил.

Как видите, у меня есть столбец текста. Каждая строка текста на самом деле является гиперссылкой. Мне не нужен текст, но мне нужны URL-адреса. Как вставить все эти строки текста в виде URL? Я думал, что есть опция "вставить специальную", но если она есть, я ее не вижу.

В настоящее время я перемещаюсь ячейка за ячейкой, щелкаю правой кнопкой мыши «Изменить гиперссылку», а затем вручную копирую и вставляю. Это довольно утомительно, поэтому я хотел бы знать, как сделать все это сразу (если это возможно).

Есть идеи?

Answer 1

Сначала вставь нормально. Затем выберите вставленный блок и запустите этот короткий макрос:

Sub HyperFixer()
    Dim h As Hyperlink
    Dim rng As Range
    For Each h In ActiveSheet.Hyperlinks
        Set rng = h.Range
        If Not Intersect(rng, Selection) Is Nothing Then
            h.TextToDisplay = h.Address
        End If
    Next h
End Sub

"Дружественное" имя каждой гиперссылки будет изменено, чтобы отразить фактический URL.