Excel: как удалить все каретки из ячейки?

Ответ 1

=CLEAN(A1)

Очистка удаляет все непечатаемые символы из текста. - Документация справки Excel

Ответ 2

Предполагая, что ваша ячейка находится в A1, вы можете использовать следующую формулу:

=SUBSTITUTE(A1,CHAR(10),"")

В зависимости от возврата каретки вам может понадобиться char(13) вместо char(10).

Ответ 3

Выберите ячейку или ячейки, нажмите кнопку "Данные/текст в столбцы" в строке меню Excel, выберите опцию "Разделение" на первой странице диалога, нажмите кнопку "Далее", снимите все, кроме Other, и введите Ctrl + J в поле рядом с ним (вы не увидите ничего в этом поле, но диаграмма макета столбца покажет что он разбивается на строки (они не возвращаются каретой)... затем просто нажмите кнопку "Готово".

Ответ 4

= Чистый (А1)

Эта команда может быть найдена в Excel на вкладке формул > текст.

Ответ 5

Sub RemoveLineBreaks()
    Application.ScreenUpdating = False
    Dim rngCel As Range
    Dim strOldVal As String
    Dim strNewVal As String

    For Each rngCel In Selection
        If rngCel.HasFormula = False Then
            strOldVal = rngCel.Value
            strNewVal = strOldVal
            Debug.Print rngCel.Address

            Do

            strNewVal = Replace(strNewVal, vbLf, " ")

            If strNewVal = strOldVal Then Exit Do
                strOldVal = strNewVal
            Loop

            If rngCel.Value <> strNewVal Then
                rngCel = strNewVal
            End If
        End If
        rngCel.Value = Application.Trim(rngCel.Value)
    Next rngCel
    Application.ScreenUpdating = True
End Sub