Макрос для удаления переносов строк в ячейке

• Открыть документ Excel.
• Выделите столбик с гиперссылками
• Перейти в режим VBA (Alt+F11)
• Вставить новый модуль (Insert > Module)
• Скопировать код (ниже) и вставить в открывшееся окно

Sub Clean_and_Trim_Cells()

    Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual

    Dim s As String

    For Each c In ActiveSheet.UsedRange

        s = c.Value

        If Trim(Application.Clean(s)) <> s Then

            s = Trim(Application.Clean(s))

            c.Value = s

        End If

    Next

    Application.ScreenUpdating = True

    Application.Calculation = xlCalculationAutomatic

End Sub

• Нажать F5, чтобы запустить макрос
• Выйти из VBA (Alt+Q)