В Excel я вставил несколько URL-адресов, но они не являются живыми ссылками - как мне массово преобразовать их в живые ссылки?

Question

В Excel я вставил несколько URL в столбец.

Тем не менее, они не являются живыми ссылками после вставки.

Как быстро конвертировать их в живые ссылки?

Answer 1

Это должно сделать свое дело.

Sub Test()
  Dim rngRange As Range
  For Each rngRange In Selection
    If Trim(rngRange.Value) <> "" Then
      rngRange.Hyperlinks.Add _
               Anchor:=Cells(rngRange.Row, rngRange.Column), _
               Address:=rngRange.Text, _
               ScreenTip:=rngRange.Text, _
               TextToDisplay:=rngRange.Text
      End If
  Next rngRange
End Sub

Если вам придется много делать, я бы подключил его к сочетанию клавиш.

Чтобы это произошло в Excel 2010 (комплименты @Excellll)

1. Перейдите в "Просмотр" и нажмите кнопку "Макросы".
2. Это откроет диалоговое окно с запросом имени нового макроса. Введите "Тест" и нажмите "Создать".
3. Откроется редактор VBA. Скопируйте код выше в это новое окно.
4. Теперь перейдите к вашей электронной таблице и выберите диапазон ячеек с гиперссылками, которые вы хотите исправить.
5. Вернитесь к редактору VBA. Нажмите F5. Это выполнит код.