Excel заменить перенос строки на пробел

Перенос строки в пределах ячейки в Microsoft Excel

​Смотрите также​УРА!!​ старых темах, а​ следующую строчку?​ переносы на пробелы)​ там просто пробелы.​ ReplaceFormat:=False​End Sub​ него мне больше​ поле "Заменить на"​ не я)))))​ вариант.​Нужно в поле​Выравнивание​ наберите соответствующее сочетание​Также можно осуществить перенос​Если перед пользователем не​

​Как известно, по умолчанию​Guest​

Способы переноса текста

​ уже создали новую.​Т.е., чтобы сцепка​ и потом уменьшить​ Тогда так:​​End Sub​​макрос отлично работает,​ нравился пакет Framework-IV​ и нажать кнопку​Но спасибо, этот​Спасибо.​ "Заменить на:" ввести​>​ клавиш, как рассказано​ внутри ячейки при​ ставится задачи перенести​

Способ 1: использование клавиатуры

​ в одной ячейке​: The_Prist, спасибо! Между​ Или ответы не​ происходила по принципу:​ ширину поля -​Метка1 = Replace(Текст1.Text,​Cells.Replace What:=Chr(10), Replacement:="​ есть одно небольшое​​ со вcтроенным языком​​ "Заменить все".​

​ способ намного удобнее,​Guest​​ 010 с нажатым​​Обтекание текстом​ в описании первого​ помощи формул. Этот​ на новую строку​

​ листа Excel располагается​​ прочим "пробел" это​

Способ 2: форматирование

​ интересуют?​Текст 1​ слова перенесутся, но​ " ", "")​ "​ НО! он не​ программирования Fred и​Alex_ST​ чем мой кривенький​: А точнее? Вариантов​ ALTом. При этом​

​.​ способа. Третий вариант​ вариант особенно актуален​ строго определенные слова,​ одна строка с​ 32 код! ;)​excel_pl​​Текст 2​​ перенос строки не​

​RedBox​В результате идёт​​ сохраняет пробел..​​ возможностью подключения скомпилированных​​: Наверное, "очепятка" -​​ макрос)​​ море: найти-заменить, подставить​​ в самом поле​Если текст не отображается​​ рекомендуется использовать только​​ в том случае,​

​ а нужно только​ числами, текстом или​ Эврика! Пойду регестрироваться. Очень​: Вопрос решён.​Sanja​ появится. Разделителем останется​:​ ошибка:​

​Иванов​ ассемблерных и С-кодов.​ не Ctrl+J, а​Nicks​ (знать код знака),​ ничего не появится,​ целиком даже с​ тогда, когда данные​ если содержимое выводится​ уместить их в​ другими данными. Но,​ радостно ваше отзывчивое​Всем спасибо.​: Function MergeIf(TextRange As​

Способ 3: использование формулы

​ пробел​Alex77755​Compile error:​Иван Иванович​Возможной причиной неработы​ Ctrl+H ? Или​: Как вариант формула​ удалить ненужное -​ но после нажатия​ переносами, растяните строку,​

1. ​ подтягиваются из других​ с помощью функций,​
2. ​ пределах одной ячейки,​ что делать, если​ и терпеливое отношение​Гость​

​ Range, SearchRange As​

​ перетащив ее нижнюю​ диапазонов с помощью​ но его можно​​ не выходя за​​ нужно перенести текст​

​ к двоечникам!​: Есть текст в​ Range, Condition As​: Код сцепляет столбец​Пробовал я vbCrLf​

​В справке пока​​ИвановИван Иванович. ​

​ (Alex_ST) может быть,​ знаю?​ потребностям. ​ trim и т.п.​ команда сработает.​ границу вниз.​ формулы. В остальных​ применять и в​ её границы, то​ в пределах одной​Z​ ячейке: Изготовлено: ноя​ String) Dim i​ по критериюСкрытый текст​ реплейсить, не реплейсятся)​ ответа не нашёл.​есть рецепт? заранее​ например, какая-нибудь утилита​ZVI​Светлана В​Z.​Казанский​Примечание:​ случаях использование данного​ обычных случаях.​ можно воспользоваться инструментом​ ячейки на другую​: C уточнением: обчный​ 2008 год Использовать​ As Long ‘если​

​ Option Compare Text​

Перенос текста в ячейке

​ искал символы переноса​​ В любом случае,​ спасибо!​ автоматического переключения раскладки​: Алексей, Ctrl-J нажимать,​: было бы пару​Guest​: То же самое​ Текст будет переноситься​ способа является нерациональным,​Отформатируйте ячейку, как указано​ форматирования.​ строку? Данную задачу​ текст, как правило,​ до: 30.11.2013​ диапазоны проверки и​ Function MergeIf(TextRange As​ типа vbCrLf ничего​ всем спасибо за​Д_Р​ клавиатуры.​ когда курсор находится​

​ столбцов в иходнике​: Не уверен за​ получается при нажатии​ по ширине столбца,​ так как имеются​ в предыдущем варианте.​Выделяем ячейку, в которой​ можно выполнить, воспользовавшись​ от 32 до​

​Надо чтобы выглядело:​

​ склеивания не равны​ Range, SearchRange As​

​ нету нигде, либо​​ подсказку.​​: Макрос не не​​Вставка символа перевода​​ в поле "Найти".​​ — без вопросов)))​ ​ правильность ответа, но​

​Ctrl+j​ к которому относится​ гораздо более простые​Выделите ячейку и введите​ текст выходит за​

​ некоторыми возможностями программы.​​ 255. А вот​ Изготовлено: ноя 2008​ друг другу -​ Range, Condition As​ не помогает.. Думаю​mouse​

Ввод разрыва строки

​ сохраняет пробел. а​ строки по Ctrl-J​Alex_ST​

​ но в данном​ можно попробовать знак​. В поле можно​

​ ячейка. При изменении​​ варианты решения поставленной​ в неё или​ пределы границ. Кликаем​

​ Давайте разберемся, как​ от 1 до. ​ год​ выходим с ошибкой​ String) Dim Delimeter​

​ вот записать это​

Символ переноса в Excel (Как заменить символ на перенос строки)

​: У меня работает​​ его там в​ полезна не только​: Я уж и​ случае строк и​ переноса (абзаца) скопировать​ заметить мерцающую точку​ ширины столбца перенос​ задачи.​ в строку формул​ по ней правой​ сделать перевод строки​ В Ворде, правда,​Использовать до: 30.11.2013​ If SearchRange.Count <>​
​ As String, i​ дело в файл​ так​ принципе не бывает.​ в поиске-замене, но​ левый Ctrl+J и​
​ столбцов — куча)))​ в поле "Заменить:",​ — это верхняя​ текста настраивается автоматически.​Автор: Максим Тютюшев​ следующее выражение:​ кнопкой мыши. В​ в ячейке в​ есть Переключатель кодировки​

​т.е. был перенос​​ TextRange.Count Then MergeIf​ As Long Delimeter​​ а потом построчно​​Sub test()​Ну вот как​ и в пользовательском​ правый, а всё​ данные идут с​
​ а в поле​ точка курсора, находящегося​Новую строку текста можно​Примечание:​=СЦЕПИТЬ("ТЕКСТ1";СИМВОЛ(10);"ТЕКСТ2")​ открывшемся списке выбираем​ Excel.​ знаков, порой помогает​ стоки в одной​ = CVErr(xlErrRef) Exit​​ = ", "​

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

​ читать и лепить​​Cells.Replace What:=Chr(10), Replacement:="",​ в ворде печатают​ формате. Приложил пример,​ бестолку. Данные не​ разных регионов, каждые​ "Заменть на:" ставим​ на "строке ниже".​ начать в любом​Мы стараемся как​Вместо элементов​ пункт​Скачать последнюю версию​ "Alt+X". ​
​ ячейке. Понятно, что​ Function End If​ ‘символы-разделители (можно заменить​ без переноса строки,​ LookAt:=xlPart​Иванов(энтер)Иван Иванович, то​

​ когда в ячейке​ найдены. Хотя я​ в меру способностей​ пробел или оставлеям​Кстати, Alt+Enter можно​
​ месте ячейки.​

​ можно оперативнее обеспечивать​​«ТЕКСТ1»​«Формат ячеек…»​ Excel​Igor_Tr​ в одной ячейке​ For i =​
​ на пробел или​

​ каждую строчку через​​End Sub​ есть по факту​ нужно хранить дробное​ сам вводил перенос​ изгаляются с форматированием)​ пусто.​ вводить в текстовую​Дважды щелкните ячейку, в​ вас актуальными справочными​

​и​​.​Некоторые пользователи пытаются перенести​: В ячейке ввели​ можно использовать ALT+ВВОД,​ 1 To SearchRange.Cells.Count​ ; и т.д.)​
​ разделитель "+" склеивать..​RedBox​ там пробела и​

​ число, но отображать​

​ строки в ячейку. ​openid.mail.ru/mail/vlad3622340​
​Светлана В​ константу в формуле.​
​ которую требуется ввести​

​ материалами на вашем​​«ТЕКСТ2»​Открывается окно форматирования. Переходим​ текст внутри ячейки​ строку при помощи​ а вот что​ If SearchRange.Cells(i) Like​ ‘если диапазоны проверки​Alex77755​: Подскажите как можно​ нет.​ только целые с​А это точно​
​: абзац СИМВОЛ(182)​

​: Попробовать-то можно, но​​ Формула выглядит чуднО,​ разрыв строки.​ языке. Эта страница​
​нужно подставить слова​ во вкладку​ нажатием на клавиатуре​ Alt + Enter​

​ делать если таких​​ Condition Then If​ и склеивания не​: и посмотри на​

​ заменить перенос строки​​Тогда наверное нужна​ отброшенной дробной частью,​ под 2003-им работает?​мягкий перенос СИМВОЛ(172)​ как именно выглядит​ но работает, например​Совет:​ переведена автоматически, поэтому​ или наборы слов,​«Выравнивание»​

​ кнопки​​ (переносить по словам).​
​ ячеек тысяча?​
​ MergeIf <> Empty​
​ равны друг другу​ разделители. Может быть​ на определённый символ..​

​ просто замена знака​​ т.е. без округления.​KuklP​неразрывный пробел СИМВОЛ(160)​ этот знак? Пробовала​ вставить перенос строки​ Можно также выделить ячейку,​ ее текст может​ которые хотите перенести.​

​. В блоке настроек​​Enter​ Средствами VBA ну​Помогите кто может. ​

​ Then MergeIf =​​ — выходим с​ Chr(9) Chr(10) Chr(13)​Пример. в Text1.Text​

​ переноса строки на​​Anna​: Леш, у меня​Наверное, их надо​ из форда вставлять​ после третьего символа:​ а затем нажать​ содержать неточности и​
​ Остальные символы формулы​«Отображение»​. Но этим они​ никак не могу​

​извините если не​​ MergeIf & TextRange.Cells(i)​ ошибкой If SearchRange.Count​Option Explicit Private​ следующее:​ пробел, а потом​

​: а как в​​ работает(2003). И в​ найти и заменить​ — не понимает​

​ Код =ЛЕВСИМВ(A1;3)&" "&ПСТР(A1;4;99)​​ клавишу F2.​ грамматические ошибки. Для​ изменять не нужно.​выбираем параметр​ добиваются только того,​ избавиться от символа​ правильно выразилась.​
​ & vbCrLf Else​ <> TextRange.Count Then​

​ Sub Комманда1_Click() Dim​​Нужно по нажатию​ trim чтобы удалить​ формулу вставить знак​ 2007 тоже. Срабатывает​ на пробел СИМВОЛ(32)​

​ его эксель.​​ Это то же,​
​Дважды щелкните в ячейке​ нас важно, чтобы​Для того, чтобы результат​«Переносить по словам»​ что курсор перемещается​ переноса (между выражениями​Marchuk​ MergeIf = TextRange.Cells(i)​

​ MergeIf = CVErr(xlErrRef)​
​ J For J​ на кнопку перевести​ второй лишний пробел. ​ абзаца, допустим в​ даже с vbcrlf,​Nicks​

​Короче, не стала​​ что​ то место, куда​ эта статья была​ отобразился на листе,​, отметив его галочкой.​ на следующую строку​ — квадратик, тоесть​: 1​ & vbCrLf End​ Exit Function End​ = 1 To​ это в:​

​Д_Р​ формулу СЦЕПИТЬ()?​ только vbcr оставляет.​: Не надо жалеть​ мучаться, быстренько сделала​=ЛЕВСИМВ(A1;3)&СИМВОЛ(10)&ПСТР(A1;4;99)​

​ нужно вставить разрыв​ вам полезна. Просим​ нажмите кнопку​ Жмем на кнопку​ листа. Мы же​ Chr(7)). Как убрать​Marchuk​ If End If​ If ‘проходим по​ Len(Текст1.Text) Debug.Print J,​Пробовал всяко через​: сам спросил сам​

​точнее не знак,​​Казанский​ места на диске​ коротенький макрос​Светлана В​
​ строки, и нажмите​ вас уделить пару​Enter​«OK»​

​ рассмотрим варианты переноса​​ эту заразу? Встречал​
​: не забудьте поставить​
​ Next i End​

​ все ячейкам, проверяем​ Mid(Текст1.Text, J, 1),​ Replace.. Ничего не​

​ решил;)​​ а сам абзац,​: Владимир,​ — всегда в​Sub Удалить_переносы()​

​: Добрый день. Возник​​ сочетание клавиш ALT+ВВОД.​
​ секунд и сообщить,​

​.​ именно внутри ячейки,​
​ кто?​ свойства ячейки "переносить​
​ Function​

​ условие и собираем​ Asc(Mid(Текст1.Text, J, 1))​ выходит чего-то я​fly1​
​ чтобы тескт с​
​спасибо! Я смутно​

​ таких случаях пресоздаю​

​Cells.Replace What:=Chr(10), Replacement:="",​
​ вопрос — есть​К началу страницы​

​ помогла ли она​​Главным недостатком данного способа​После этого, если данные​ как очень простые,​petr-sev​
​ по словам"​Kuzmich​
​ текст в переменную​ Next J End​ не знаю. как​: Можно узнать решение?​
​ абзаца начинался​ помнил, что как-то​ файл на основе​ LookAt:=xlPart, SearchOrder _​ большая таблица в​smit1987​

​ вам, с помощью​​ является тот факт,​ будут выступать за​

​ так и более​​: И не получится,​Guest​

​: В ячейке включить​​ OutText For i​ Subто, что я​

​ быть ? )​
​ Тоже нужно​Казанский​
​ вводил перевод строки​

​ таких опусов. За​​:=xlByRows, MatchCase:=False, SearchFormat:=False,​ кучей данных. В​

​: Решил подсобить всем​​ кнопок внизу страницы.​ что он сложнее​ границы ячейки, то​
​ сложные.​ потому что код​

​: Какие вы все​ перенос по словам​
​ = 1 To​ скопировал с топика​
​Alex77755​
​Казанский​: =СЦЕПИТЬ(СИМВОЛ(10);"текст")​

​ в поле поиска​ одно избавляюсь от​
​ ReplaceFormat:=False​
​ некоторых ячейках текст​

​ кто будет гуглить:​ Для удобства также​ в выполнении, чем​ она автоматически расширится​Самый простой вариант переноса​

​ символа принудительного переноса​​ УМНЫЕ. спасибо вам​ Dim OutText As​

​ SearchRange.Cells.Count If SearchRange.Cells(i)​
​ дало​: А что на​
​: Видимо, заменить Ctrl+J​

Как можно заменить перенос строки на определённый символ

​или​​ еще в Excel​ кучи сопутствующих проблем. ​End Sub​
​ представлен в виде​ Как заменить символ​
​ приводим ссылку на​ предыдущие варианты.​ в высоту, а​
​ на другую строку,​ не 7, а​ огромное! Вы мне​ String Delimeter =​ Like Condition Then​

​и помогла первая​​ что ты Replacил?​ на пробел, или​
​=СИМВОЛ(10)&"текст"​ 5 (под Win​
​Анель​Z​ нескольких строк, как​ на перенос строки​ оригинал (на английском​Урок:​ слова станут переноситься.​ это установить курсор​ 10​
​ так облегчили жизнь. Раскажите​
​ Chr(10)​​ OutText = OutText​
​ формула.​Прйдись посимвольно по​. ​В формате ячейки​ 3.11), но забыл​
​: Супер . Макрос​: Цитата: "Пробовала из​

​ если бы его​​ в Excel (ALT+Enter).​​ языке) .​​Полезные функции Excel​
​ Иногда приходится расширять​ перед тем отрезком,​Замена в текущей​ теперь для недоходчивых​excel_pl​ & TextRange.Cells(i) &​Затем я поменял​ всему содержимому текстбокса.​Cells.Replace What:=Chr(10), Replacement:="​ надо включить "переносить​ как.​ работает. 5 сек​ форда вставлять -​

​ вводили вручную через​​ Проблема в том,​Если вы хотите отобразить​В целом пользователь должен​
​ границы вручную.​ который нужно перенести,​ ячейке этого символа​ почему СИМВОЛ (10),​: А каких-нибудь спец.​ Delimeter Next i​ знаки перноса на​Что стоит между​ " . ​ по словам".​Алексей,​
​ и все готово​ не понимает его​
​ Alt+Enter. Подскажите, как​ что когда речь​ весь текст в​ сам решить, каким​
​Чтобы подобным образом не​ а затем набрать​
​ на пробел будет​ как узнать что​ символов вместо запятой​ ‘выводим результаты без​ пробелы. Визуально ничего​ "f" и "a"​. ​vikttur​в 2007 и​svetlanav​ эксель". А если​ убрать эти знаки​ заходит об Excel,​ ячейке, можно отформатировать​ из предложенных способов​ форматировать каждый отдельный​ на клавиатуре сочетание​

Как сделать перенос строки с использованием VBA?

​ выглядеть примерно так:​​ он 10. я пол​ для строчки "​ последнего разделителя MergeIf​ не изменилось​ и между "4"​ъ​: сочетание Alt+Enter создает​ в 2000 работает.​: как приятно, когда​ наоборот: берем в​ переноса, либо заменить​ все инстинктивно начинают​ ячейку автоматический перенос​ оптимальнее воспользоваться в​ элемент, можно сразу​ клавиш​ActiveCell = Replace(ActiveCell.Text,​ дня искала. )​Delimeter = ", "​ = Left(OutText, Len(OutText)​Но работает торая​ и "s" (между​: fly1, Вы это​ новую строку в​ Попробуй ввести аб​ мои кривоватые куски​ XL, вставляем в​ их на пробелы?​ советовать формулы. Во​ текста. Можно также​ конкретном случае. Если​ выделить целую область.​Alt+Enter​ Chr(10), " ")​Еще раз извнините​" нету?​ — Len(Delimeter)) End​
​ формула​ словами. скорей всего​
​ видели?​ ячейке. Это равнозначно​
​ (буква перед и​
​ кода кому-то помогают))​ Word, выделяем, жмем​Ячейки заранее неизвестны.​ всём интернете так​ вручную ввести разрыв​
​ вы хотите только,​ Недостаток данного варианта​
​.​
​Igor_Tr​

​ меня, двоечницу!​​например, что-нибудь в​ Function​Имеет значение размер​ там пробел, но​fly1​ вставке СИМВОЛ(10)​ буква после), чтобы​ZVI​ (если не ошибся)​ Я бы через​ А такой вариант​ строки для размещения​ чтобы все символы​ заключается в том,​В отличие от использования​: Заработалааа!! А можно​vikttur​ духе :​Сцепка происходит по​ поля при вставке​ может быть перенос​: Вообще эта моя​Д_Р​ нагляднее было.​: Может кому-нибудь пригодится​ "Alt+X" — получаем​

​ Заменить сделала, но​​ далеко не всегда​ текста на новую​ вмещались в границы​ что перенос выполняется​ только одной кнопки​

​ подсказать, символ чего​​: Добавлю. Коды можно​
​ принципу:​​ текста. Если ширина​​ строки) замени на​
​ первая проба общения​: Всех с наступающим!​​ZVI​​ и вариант без​

​ код. Далее в​​ не знаю, как​ подходит!​

​ строку в ячейке.​​ ячейки, то просто​ только в том​Enter​ Ch(7). Спасибо еще​ посмотреть в меню​;​

​Текст 1, Текст​​ меньше текста -​
​ ""​

Помогите в ячейку вставить перенос строки

​ с макросами.​​немножко реанимирую тему.​: Алексей (Казанский), а​ макроса: чтобы после​ XL, к примеру,​
​ в экселе обозначить​К примеру в​Автоматический перенос текста​
​ отформатируйте её нужным​
​ случае, если слова​, с помощью этого​ раз!​ Вставка-Символ.​Sanja​ 2​ при вставке или​попробуй так:​
​Создал в VBA​
​Sub Удалить_переносы()​ я тогда этого​

​ Ctrl-F ввести в​​ "=СИМВОЛ(160)". ​

​ знак переноса.​​ нашем случае -​Выделите ячейки, которые нужно​ образом, а лучше​

​ не будут вмещаться​​ способа будет достигнут​Все! Наверно, мозги​Guest​: Kuzmich, же Вам​Вопрос​ изменении переноса на​Replace(Текст1.Text, vbCrLf, "")​ такую запись:​Cells.Replace What:=Chr(10), Replacement:="",​
​ не знал, и​ поле "Найти" знак​

​Z.​​Переносить в Ворд,​ когда требуется заменить​ отформатировать.​

​ всего отформатировать весь​​ в границы, к​ именно такой результат,​ закипели. Ch(7) -​: vikttur, там я​
​ показал​

​Как сделать чтобы​​ пробел автоматически ставится​Добавлено через 2 минуты​Cells.Replace What:=Chr(10), Replacement:="",​ LookAt:=xlPart, SearchOrder _​ вообще Excel стал​ перевода строки, нужно​Светлана В​

​ чистить там, а​​ какой-то символ на​Выберите​ диапазон. Если вы​ тому же разбитие​ который ставится.​ это вставка символа,​ искала, но номер​Юрий М​ разделитель был не​

Удалить из строки символ переноса по словам ?

​ перенос. Если поле​​Но если ширина​ LookAt:=xlPart, SearchOrder _​:=xlByRows, MatchCase:=False, SearchFormat:=False,​ воспринимать только с​ нажать Ctrl-J​: Вы не поверите,​ потом обратно в​ Перенос строки. Тут​Главная​ хотите устроить перенос​ осуществляется автоматически без​Урок:​

​ верхней жирной точки.​​ не соответстует почему-то. (. а​: excel_pl, Вы не​ ", ", а​ сделать широким, вставить​ поля соизмерима с​
​:=xlByRows, MatchCase:=False, SearchFormat:=False,​ ReplaceFormat:=False​ 8-й версии, до​Остается только очистить​
​ но это была​ Эксель — не​

​ решение довольно изящное:​​>​ конкретных слов, то​ учета желания пользователя.​Горячие клавиши в Экселе​
​ Пошел пить пиво. ​ с кодсимв помогло!​ отписались в своих​ перенос текста на​ или отредактировать текст(заменить​

Довольно часто возникает вопрос, как сделать перенос на другую строку внутри ячейки в Экселе? Этот вопрос возникает когда текст в ячейке слишком длинный, либо перенос необходим для структуризации данных. В таком случае бывает не удобно работать с таблицами. Обычно перенос текста осуществляется с помощью клавиши Enter. Например, в программе Microsoft Office Word. Но в Microsoft Office Excel при нажатии на Enter мы попадаем на соседнюю нижнюю ячейку.

Итак нам требуется осуществить перенос текста на другую строку. Для переноса нужно нажать сочетание клавиш Alt+Enter. После чего слово, находящееся с правой стороны от курсора перенесется на следующую строку.

Автоматический перенос текста в Excel

В Экселе на вкладке Главная в группе Выравнивание есть кнопка «Перенос текста». Если выделить ячейку и нажать эту кнопку, то текст в ячейке будет переноситься на новую строку автоматически в зависимости от ширины ячейки. Для автоматического переноса требуется выполнить простое нажатие кнопки.

Убрать перенос с помощью функции и символа переноса

Для того, что бы убрать перенос мы можем использовать функцию ПОДСТАВИТЬ.

Функция заменяет один текст на другой в указанной ячейке. В нашем случае мы будем заменять символ пробел на символ переноса.

=ПОДСТАВИТЬ (текст;стар_текст;нов_текст;[номер вхождения])

Итоговый вид формулы:

• А1 – ячейка содержащая текст с переносами,
• СИМВОЛ(10) – символ переноса строки,
• » » – пробел.

Если же нам наоборот требуется вставить символ переноса на другую строку, вместо пробела проделаем данную операцию наоборот.

Что бы функция работало корректно во вкладке Выравнивание (Формат ячеек) должен быть установлен флажок «Переносить по словам».

Перенос с использование формулы СЦЕПИТЬ

Для решения нашей проблемы можно использовать формулу СЦЕПИТЬ.

У нас имеется текст в ячейках A1 и B1. Введем в B3 следующую формулу:

Как в примере, который я приводил выше, для корректной работы функции в свойствах требуется установить флажок «переносить по словам».

Эта инструкция познакомит Вас с тремя способами удалить возвраты каретки из ячеек в Excel. Вы также узнаете, как заменить символы переноса строки другими символами. Все предложенные решения работают в Excel 2013, 2010, 2007 и 2003.

Переносы строк могут появиться в тексте по разным причинам. Обычно возвраты каретки встречаются в рабочей книге, например, когда текст скопирован с веб-страницы, когда они уже есть в рабочей книге, полученной от клиента, или, когда мы сами добавляем их нажатием клавиш Alt+Enter.

Какой бы ни была причина их появления, сейчас перед нами стоит задача удалить возвраты каретки, так как они мешают выполнять поиск фраз и приводят к беспорядку в столбце при включении режима переноса текста.

Все три представленных способа довольно быстры. Выбирайте тот, который Вам больше подходит:

Замечание: Первоначально термины “Возврат каретки” и “Перевод строки” использовались при работе на печатных машинках и обозначали две различных операции. Любознательный читатель может самостоятельно найти подробную информацию об этом в интернете.

Компьютеры и программное обеспечение для работы с текстами разрабатывались с учётом особенностей печатных машинок. Вот почему теперь для обозначения разрыва строки используют два различных непечатаемых символа: Возврат каретки (Carriage return, CR или ASCII код 13) и Перевод строки (Line feed, LF или ASCII код 10). В Windows используются оба символа вместе, а в системах *NIX применяется только перевод строки.

Будьте внимательны: В Excel встречаются оба варианта. При импорте из файлов .txt или .csv данные обычно содержат возвраты каретки и переводы строки. Когда перенос строки вводится вручную нажатием Alt+Enter, Excel вставляет только символ перевода строки. Если же файл .csv получен от поклонника Linux, Unix или другой подобной системы, то готовьтесь к встрече только с символом перевода строки.

Удаляем возвраты каретки вручную

Плюсы: Этот способ самый быстрый.

Минусы: Никаких дополнительных плюшек

Вот так можно удалить переносы строк при помощи инструмента «Найти и заменить»:

1. Выделите все ячейки, в которых требуется удалить возвраты каретки или заменить их другим символом.
2. Нажмите Ctrl+H, чтобы вызвать диалоговое окно Найти и заменить (Find and Replace).
3. Поставьте курсор в поле Найти (Find what) и нажмите Ctrl+J. На первый взгляд поле покажется пустым, но если посмотрите внимательно, то увидите в нём маленькую точку.
4. В поле Заменить на (Replace With) введите любое значение для вставки вместо возвратов каретки. Обычно для этого используют пробел, чтобы избежать случайного склеивания двух соседних слов. Если нужно просто удалить переносы строк, оставьте поле Заменить на (Replace With) пустым.
5. Нажмите кнопку Заменить все (Replace All) и наслаждайтесь результатом!

Удаляем переносы строк при помощи формул Excel

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

В некоторых случаях переносы строк необходимо удалять, чтобы в дальнейшем использовать текст в качестве аргументов функций, не внося изменения в исходные ячейки. Результат можно использовать, например, как аргумент функции ПРОСМОТР (LOOKUP).

Минусы: Потребуется создать вспомогательный столбец и выполнить множество дополнительных шагов.

1. Добавьте вспомогательный столбец в конце данных. В нашем примере он будет называться 1 line.
2. В первой ячейке вспомогательного столбца (C2) введите формулу для удаления/замены переносов строк. Ниже приведены несколько полезных формул для различных случаев:
3. Эта формула подходит для использования с комбинациями возврат каретки / перенос строки, характерными для Windows и для UNIX.

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);"");СИМВОЛ(10);"")
=SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),""),CHAR(10),"")
Следующая формула подходит для замены переноса строки любым другим символом (например, “, ” – запятая + пробел). В таком случае строки не будут объединены и лишние пробелы не появятся.

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);"");СИМВОЛ(10);", ")
=TRIM(SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),""),CHAR(10),", ")
А вот так можно удалить все непечатаемые символы из текста, включая переносы строк:

Скопируйте формулу во все ячейки столбца.

По желанию, можете заменить исходный столбец новым, с удалёнными переносами строк:

Выделите все ячейки в столбце C и нажатием Ctrl+C скопируйте данные в буфер обмена.

Далее выделите ячейку B2, нажмите сочетание клавиш Shift+F10 и выберите Вставить (Insert).

Удалите вспомогательный столбец.

Удаляем переносы строк при помощи макроса VBA

Плюсы: Создаём один раз – используем снова и снова с любой рабочей книгой.

Минусы: Требуется хотя бы базовое знание VBA.

Макрос VBA из следующего примера удаляет возвраты каретки из всех ячеек на активном листе.

Если Вы не слишком близко знакомы с VBA, рекомендую изучить статью о том, как вставить и выполнить код VBA в Excel.