Excel: преобразование столбца с гиперссылками для простого отображения ссылок

Краткий ответ: вы не можете автоматизировать это без VBA.

Ручной

Это на компьютере с Windows 7; просто замените ярлыки на соответствующие аналоги Mac.

1. Выделите ячейку с гиперссылкой.
2. Нажмите CTRL+K. Откроется диалоговое окно с гиперссылкой (см. рисунок ниже). Как только оно откроется, вы увидите, что курсор уже находится в поле Адрес.
3. Нажмите CTRL+A, чтобы выделить весь URL.
4. Нажмите CTRL+C, чтобы скопировать его.
5. Нажмите ESC или Enter, чтобы закрыть диалоговое окно гиперссылки.
6. Вставьте URL где-нибудь через CTRL + V.

Public Function GetURL(c As Range) As String
    On Error Resume Next
    GetURL = c.Hyperlinks(1).Address
End Function

VBA

Вот решение VBA для тех, кто может его использовать.

Создайте модуль VBA со следующим кодом:

=GetURL(A1)

Чтобы использовать, введите следующее в любую ячейку:

где A1 содержит гиперссылку.

Функция в работе:

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

1) Скопируйте и вставьте только клетки, содержащие гиперссылки на новую электронную таблицу.

2) Экспорт электронной таблицы, нажмите “Изменить тип файла”, выберите “Сохранить как другой тип файла” и сохраните его как веб-страницу (также известную как HTML-файл).

3) Откройте веб-страницу в браузере и просмотрите исходный текст.

4) Скопируйте и вставьте источник в текстовый редактор.

5) Используя функцию Поиск/Перемещение в текстовом редакторе, удалите ведущий и ведущий текст каждой гиперссылки. (Другими словами, заменить указанный текст ничем: “”) Обратите внимание, что этот текст должен быть идентичен для каждой гиперссылки.

6) Теперь у вас должен быть текстовый файл, в котором нет ничего, кроме гиперссылок. Скопируйте и вставьте по мере необходимости обратно в вашу исходную электронную таблицу или используйте как угодно и где угодно.

Редактировано, чтобы указать, что вы действительно можете экспортировать в отдельный файл, который является HTM. Закройте файл и снова откройте его в Excel, и это решит проблему. Формула =Гиперссылка исчезла и ссылки преобразуются в обычные ссылки. Этот метод сэкономил мне несколько часов и был мертвецки простым, и мне не пришлось иметь дело со скриптами или формулами, VBA или макросами.

Я использую mac, и это сработало для меня: выделите колонку, которую нужно преобразовать, в меню “Вставить” откройте “Гиперссылку”. Удалите любой текст, который появится в окне отображения. Будет написано “[выбрано несколько ячеек]”, если текст на экране разный для разных ячеек. После нажатия кнопки “ОК” на рабочем листе отобразятся только ссылки. Если необходимо преобразовать отдельные ячейки, а не весь столбец, выделите все ячейки, которые необходимо преобразовать, щелкните правой кнопкой мыши, выберите “Редактировать гиперссылку” и выполните те же действия, чтобы удалить текст в окне “Отображение”.

Я уверен, что есть с VBA, однако в то же время правой кнопкой мыши, H, а также скопировать и вставить адрес в окно для отображения окна

За годы, прошедшие с тех пор, как был задан этот вопрос, в Excel была добавлена функция =GetURL(cell), так что вы можете сделать это w/o, сбросив свой собственный VBA.