🔗 Удаление всех гиперссылок

Иногда возникает необходимость удалить все гиперссылки с рабочего листа Excel. Это легко сделать с помощью VBA. 🚀

1️⃣ Удаление с рабочего листа всех гиперссылок, вставленных в ячейки вручную, через панель инструментов «Вставка» или с помощью кода VBA:

Sub RemoveHyperlinksSheet()
    ActiveSheet.Hyperlinks.Delete
End Sub

Этот код удалит только ссылки, а тексты ссылок не затронет.

2️⃣ Удаление с рабочего листа всех гиперссылок, вставленных в виде формул:

Sub RemoveHyperlinkFormulas()
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange
        If cell.HasFormula And InStr(cell.Formula, "HYPERLINK(") > 0 Then
            cell.ClearContents
        End If
    Next cell
End Sub

Этот код удалит и ссылки, и тексты ссылок, так как они были аргументами формул.

#VBA #ExcelVBA #Hyperlink #Гиперссылка