Как заменить гиперссылку на текст в Excel: от ручных методов до автоматизации

Гиперссылки в Microsoft Excel — удобный инструмент для быстрого перехода к веб-страницам, файлам или ячейкам внутри книги. Но иногда они становятся помехой: мешают сортировке данных, усложняют копирование информации в другие программы или просто визуально загромождают таблицу. Преобразование гиперссылок в обычный текст — задача, с которой сталкиваются и новички, и опытные пользователи. Причин для этого масса: от подготовки отчётов для печати до импорта данных в базы, где формат гиперссылок не поддерживается.

В этой статье вы найдёте 5 проверенных способов удалить гиперссылки, сохранив при этом их текстовое содержимое — от простых кликов мышью до автоматизации через VBA. Мы разберём нюансы для разных версий Excel (включая Excel 365 и Excel 2019), покажем, как избежать типичных ошибок, и дадим рекомендации по оптимизации процесса для больших таблиц. Если вы работаете с данными, где гиперссылки — лишь оболочка для полезной информации, эта инструкция сэкономит вам часы рутинной работы.

Перед тем как приступить, убедитесь, что у вас есть резервная копия файла. Некоторые методы (особенно с использованием макросов) могут необратимо изменить данные. Также обратите внимание: если гиперссылки в вашей таблице динамически обновляются (например, через HYPERLINK()), после преобразования они перестанут быть "живыми" — это нормально, если ваша цель именно в извлечении текста.

1. Ручной способ: удаление гиперссылок через контекстное меню

Самый простой метод, который не требует знания формул или скриптов. Подходит для обработки небольшого количества ячеек (до 50–100), где гиперссылки разбросаны хаотично. Его главный плюс — визуальный контроль над каждой ячейкой.

Чтобы удалить гиперссылку и оставить текст:

1. Выделите ячейку (или диапазон ячеек) с гиперссылкой.
2. Нажмите правой кнопкой мыши и выберите в контекстном меню пункт "Удалить гиперссылку" (Remove Hyperlink в английской версии).
3. Готово! Текст останется, а синее подчёркивание и возможность перехода исчезнут.

⚠️ Внимание: Если вы выделите несколько ячеек, среди которых есть и обычные (без гиперссылок), команда Удалить гиперссылку будет неактивна. В этом случае придётся обрабатывать ячейки по одной или использовать другие методы из этой статьи.

Этот способ идеален для разовых задач, но становится утомительным при работе с сотнями строк. Например, если у вас таблица с 500 гиперссылками, ручное удаление займёт не менее 20–30 минут. В таких случаях лучше прибегнуть к автоматизации (см. разделы 3–5).

2. Копирование через "Блокнот": обходной путь для любых версий Excel

Этот метод работает во всех версиях Excel, включая устаревшие (Excel 2007, Excel 2010), и не требует установки дополнительных надстроек. Его суть — в использовании промежуточного буфера обмена, который "обнуляет" форматирование, включая гиперссылки.

Пошаговая инструкция:

1. Выделите диапазон ячеек с гиперссылками.
2. Скопируйте их (Ctrl + C).
3. Откройте стандартный Блокнот (notepad.exe) и вставьте данные (Ctrl + V).
4. Скопируйте текст из Блокнота обратно (Ctrl + C).
5. Вернитесь в Excel и вставьте данные (Ctrl + V) в нужное место.

✅ Плюсы метода:

• 🔹 Работает в любых версиях Excel и даже в Google Sheets.
• 🔹 Сохраняет текстовое содержимое без искажений.
• 🔹 Не требует знания формул или макросов.

❌ Минусы:

• 🔸 Теряется всё форматирование (шрифты, цвета, выравнивание).
• 🔸 Не подходит для больших таблиц (более 1000 строк) из-за ограничений Блокнота.
• 🔸 Если в ячейках были формулы, они превратятся в статичные значения.

Этот способ особенно полезен, если вам нужно экспортировать данные в другую программу (например, в Word или 1С), где гиперссылки не требуются. Однако для внутренней обработки в Excel лучше использовать более "чистые" методы (см. следующий раздел).

3. Формулы для извлечения текста из гиперссылок

Если гиперссылки в вашей таблице созданы через функцию HYPERLINK(), их текстовое содержимое можно извлечь с помощью формул. Этот метод не удаляет сами гиперссылки, а создаёт их текстовые копии в соседних ячейках. Подходит для автоматизации и работы с динамическими данными.

Рассмотрим две ключевые функции:

1. Функция LEFT + FIND (для ссылок вида "Текст|URL")

Если ваша гиперссылка имеет формат =HYPERLINK("https://example.com", "Нажми сюда"), текст ("Нажми сюда") можно извлечь так:

=LEFT(A1; FIND("|"; A1) - 1)

Но этот подход работает только для ручного ввода гиперссылок в формате Текст|URL. Для стандартных гиперссылок Excel используйте второй метод.

2. Функция HYPERLINK с извлечением адреса

Чтобы получить отображаемый текст гиперссылки (то, что видит пользователь), используйте комбинацию:

=IF(ISFORMULA(A1); MID(FORMULATEXT(A1); FIND(""""; FORMULATEXT(A1); FIND("HYPERLINK"; FORMULATEXT(A1))) + 1; FIND(""""; FORMULATEXT(A1); FIND(""""; FORMULATEXT(A1); FIND("HYPERLINK"; FORMULATEXT(A1))) + 1) - FIND(""""; FORMULATEXT(A1); FIND("HYPERLINK"; FORMULATEXT(A1))) - 1); A1)

Эта формула:

• 🔹 Проверяет, является ли ячейка формулой (ISFORMULA).
• 🔹 Извлекает текст между вторыми кавычками в функции HYPERLINK.
• 🔹 Если ячейка не формула, возвращает её значение как есть.

⚠️ Внимание: Формула FORMULATEXT доступна только в Excel 2013 и новее. Для старых версий используйте VBA (раздел 5) или ручное копирование (раздел 2).

После извлечения текста вы можете скопировать полученные значения и вставить их поверх оригинальных гиперссылок с помощью специальной вставки (Ctrl + Alt + V → Значения).

Создайте резервную копию файла|Проверьте версию Excel (нужна 2013+ для FORMULATEXT)|Выделите столбец для результатов|Примените специальную вставку после расчётов-->

4. Надстройка "Power Query": обработка больших массивов данных

Если вам нужно очистить от гиперссылок тысячи строк, ручные методы и формулы будут неэффективны. В этом случае на помощь придёт Power Query — инструмент для преобразования данных, встроенный в Excel 2016 и новее (в Excel 2010/2013 требуется бесплатная надстройка).

Пошаговая инструкция:

1. Выделите диапазон с гиперссылками и нажмите Данные → Из таблицы/диапазона (в Excel 2016+) или Power Query → Из таблицы (в Excel 2010/2013).
2. В открывшемся редакторе Power Query выделите столбец с гиперссылками.
3. Перейдите на вкладку Преобразование и выберите Извлечь → Текст до разделителя.
4. В качестве разделителя укажите символ # (или другой, который не встречается в ваших данных). Это принудительно извлечёт текстовое содержимое.
5. Нажмите Закрыть и загрузить, чтобы вернуть данные в Excel.

Sub RemoveHyperlinksKeepText()
Dim cell As Range
For Each cell In Selection
If cell.Hyperlinks.Count > 0 Then
cell.Value = cell.Text
End If
Next cell
End Sub

Sub RemoveAllHyperlinksInSheet()
Dim ws As Worksheet
Set ws = ActiveSheet
ws.Hyperlinks.Delete
End Sub

Sub RemoveHyperlinksInWorkbook()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Hyperlinks.Delete
Next ws
End Sub

Если вы часто работаете в облачных таблицах, рассмотрите возможность экспорта данных в Excel для обработки, а затем импорта обратно. Это позволит использовать все методы из этой статьи, включая Power Query и VBA.

Типичные ошибки и как их избежать

=IF(ISFORMULA(A1); MID(FORMULATEXT(A1); FIND(""""; FORMULATEXT(A1)) + 1; FIND(""""; FORMULATEXT(A1); FIND(""""; FORMULATEXT(A1)) + 1) - FIND(""""; FORMULATEXT(A1)) - 1); "")

Sub ExtractHyperlinkURLs()
Dim cell As Range
For Each cell In Selection
If cell.Hyperlinks.Count > 0 Then
cell.Offset(0, 1).Value = cell.Hyperlinks(1).Address
End If
Next cell
End Sub

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Dim cell As Range
For Each cell In ws.UsedRange
If cell.Hyperlinks.Count > 0 Then
cell.Value = cell.Text
End If
Next cell
Next ws
End Sub