Как удалить гиперссылки в Excel: все способы от простого к сложному

После этого формулы превратятся в обычный текст, а гиперссылки исчезнут.

Способ 2: Изменить формулу на текст

Если нужно сохранить URL, но убрать кликабельность:

1. Выделите ячейку с формулой.
2. В строке формул замените =ГИПЕРССЫЛКА на = (просто знак равно).
3. Нажмите Enter.

Пример: =ГИПЕРССЫЛКА("https://example.com";"Сайт") → ="https://example.com".

Способ 3: Использовать VBA для массовой обработки

Если формул много, автоматизируйте процесс макросом:

Sub RemoveHyperlinkFormulas()
Dim cell As Range
For Each cell In Selection
If cell.HasFormula Then
If InStr(1, cell.Formula, "HYPERLINK") > 0 Then
cell.Value = cell.Text
End If
End If
Next cell
End Sub

Чтобы запустить макрос:

1. Нажмите Alt + F11 (откроется редактор VBA).
2. Вставьте код выше в новый модуль (Insert → Module).
3. Вернитесь в Excel, выделите диапазон с формулами и запустите макрос (Alt + F8 → выберите RemoveHyperlinkFormulas → «Выполнить»**).

5. Автоматическое удаление гиперссылок при импорте данных

Если гиперссылки появляются при импорте данных из CSV, PDF или веб-страниц, их можно удалить на этапе импорта. Для этого:

Вариант 1: Настройка Power Query

1. Импортируйте данные через «Данные» → «Получить данные» → «Из файла»** (или другого источника).
2. В окне Power Query выделите столбец с гиперссылками.
3. Перейдите на вкладку «Преобразование» → «Формат» → «Обычный»** (или Text в английской версии).
4. Нажмите «Закрыть и загрузить»** — гиперссылки превратятся в обычный текст.

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

В веб-версии Excel Online и мобильном приложении функционал ограничен. Здесь работают только 2 метода:

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