Как удалить переносы строк (возвраты каретки) из ячеек в Excel
18.11.2016
Content
Удаляем переносы строк при помощи макроса VBA
Плюсы: Создаём один раз – используем снова и снова с любой рабочей книгой.
Макрос VBA из следующего примера удаляет возвраты каретки из всех ячеек на активном листе.
Sub RemoveCarriageReturns()
Dim MyRange As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each MyRange In ActiveSheet.UsedRange
If 0 < InStr(MyRange, Chr(10)) Then
MyRange = Replace(MyRange, Chr(10), “”)
End If
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Если Вы не слишком близко знакомы с VBA, рекомендую изучить статью о том, как вставить и выполнить код VBA в Excel.