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

Question

Я хочу избавиться от всех возвратов в моей камере.Как мне это сделать?

Answer 1

=CLEAN(A1)

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

Answer 2

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

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

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

Answer 3

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

Answer 4

= Очистить (A1)

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

Answer 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