Как убрать лишние enter в excel

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

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

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

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

• Удаляем все переносы строк вручную, чтобы быстро навести порядок на одном листе.
• Удаляем переносы строк при помощи формул и настраиваем таким образом комплексную обработку текстовых данных в ячейках.
• Используем макрос VBA, чтобы очистить от переносов строк несколько рабочих книг.

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

Компьютеры и программное обеспечение для работы с текстами разрабатывались с учётом особенностей печатных машинок. Вот почему теперь для обозначения разрыва строки используют два различных непечатаемых символа: Возврат каретки (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) введите формулу для удаления/замены переносов строк. Ниже приведены несколько полезных формул для различных случаев:
   • Эта формула подходит для использования с комбинациями возврат каретки / перенос строки, характерными для Windows и для UNIX.

     =ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);"");СИМВОЛ(10);"")
=SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),""),CHAR(10),"")

   • Следующая формула подходит для замены переноса строки любым другим символом (например, «, » – запятая + пробел). В таком случае строки не будут объединены и лишние пробелы не появятся.

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

     =ПЕЧСИМВ(B2)
=CLEAN(B2)

   

3. Скопируйте формулу во все ячейки столбца.
4. По желанию, можете заменить исходный столбец новым, с удалёнными переносами строк:
   • Выделите все ячейки в столбце C и нажатием Ctrl+C скопируйте данные в буфер обмена.
   • Далее выделите ячейку B2, нажмите сочетание клавиш Shift+F10 и выберите Вставить (Insert).
   • Удалите вспомогательный столбец.

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

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

Минусы: Требуется хотя бы базовое знание 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.

А вы знаете как убрать переносы строк внутри ячейки Excel?

Расскажу вам о трёх способах.

Способ №1

Если ячеек с переносами строк мало, то просто удалите символы или в конце, или в начале строки внутри ячейки с помощью клавиш Backspace или Delete.

Если ячеек с переносами много, то вам подойдут способы №2 и №3.

Способ №2

Для начала определите: есть ли в конце каждой строки ячейки пробел?

Для этого щелкните дважды левой клавишей мыши по ячейке и выделите крайний символ в строке.

Если символ выделяется – пробел есть.

Если есть пробел в конце строки.

▪️ Нажмите сочетание клавиш CTRL+H

▪️ В поле Найти нажмите сочетание клавиш CTRL+J для вставки символа переноса

▪️  Поле Заменить на оставьте пустым

▪️  Щелкните Заменить все и Закрыть

Если НЕТ пробела в конце строки:

▪️  Нажмите сочетание клавиш CTRL+H

▪️  В поле Найти нажмите сочетание клавиш CTRL+J для вставки символа переноса

▪️  В поле Заменить на поставьте пробел

▪️  Щелкните Заменить все и Закрыть

Способ №3

В соседней ячейке примените функцию ПЕЧСИМВ (англ. CLEAN) для удаления непечатаемых символов.

Все три способа успешно уберут переносы 👇

Поделитесь, пожалуйста, в комментариях, какой способ вам понравился больше?

Информационный раздел

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

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

При выгрузке одна строка превращается в несколько, что не позволит корректно загрузить данные на сайт. 

УДАЛЯЕМ ВОЗВРАТЫ КАРЕТКИ

1. Нажмите Ctrl+А, что бы выделить всю книгу или выделите нужные вам ячейки или столбцы.
2. Нажмите Ctrl+H, что бы вызвать диалоговое окно Найти и заменить (Find and Replace).
3. Поставьте курсор в поле Найти (Find what) и нажмите Ctrl+J.

   На первый взгляд поле покажется пустым, но если посмотрите внимательно, то увидите в нём маленькую точку.

   

4. В поле Заменить на (Replace With) введите любое значение для вставки вместо возвратов каретки. Обычно для этого используют пробел, чтобы избежать случайного склеивания двух соседних слов. Если нужно просто удалить переносы строк, оставьте поле Заменить на (Replace With) пустым.

НЕ ЗАБУДЬТЕ ПРОВЕРИТЬ ФАЙЛ И НА ДРУГИЕ СПЕЦ. СИМВОЛЫ:

• удалите все символы ; 
• замените двойные пробелы на одинарные (несколько раз)

« Вернуться

Как удалить переносы строк (возвраты каретки) из ячеек в Excel 2013, 2010 и 2007

​Смотрите также​Д_Р​ со вcтроенным языком​ и вариант без​: Цитата: «Пробовала из​Светлана В​ Dim OutText As​ Exit Function End​ будет незаметно:​ функцию СИМВОЛ в​ предыдущие варианты.​, отметив его галочкой.​

​Некоторые пользователи пытаются перенести​и выберите​(LOOKUP).​ возвраты каретки или​ две различных операции.​Эта инструкция познакомит Вас​: Макрос не не​ программирования Fred и​ макроса: чтобы после​ форда вставлять -​: Добрый день. Возник​ String Delimeter =​ If ‘проходим по​​Но на гистограммах, графиках​​ нужное место формулы,​

​Урок:​ Жмем на кнопку​ текст внутри ячейки​Вставить​Минусы:​ заменить их другим​ Любознательный читатель может​ с тремя способами​ сохраняет пробел… а​ возможностью подключения скомпилированных​ Ctrl-F ввести в​

​ не понимает его​ вопрос — есть​ Chr(10)​ все ячейкам, проверяем​

• ​ и диаграммах символы​ которая генерирует значения​Полезные функции Excel​«OK»​
• ​ нажатием на клавиатуре​(Insert).​Потребуется создать вспомогательный​ символом.​ самостоятельно найти подробную​
• ​ удалить возвраты каретки​ его там в​ ассемблерных и С-кодов.​ поле «Найти» знак​

​ эксель». А если​​ большая таблица в​excel_pl​ условие и собираем​ переноса строк, вставленные​ в ячейках для​В целом пользователь должен​.​ кнопки​Удалите вспомогательный столбец.​ столбец и выполнить​

​Нажмите​ информацию об этом​ из ячеек в​ принципе не бывает.​Возможной причиной неработы​ перевода строки, нужно​ наоборот: берем в​ кучей данных. В​: А каких-нибудь спец.​​ текст в переменную​​ с помощью формул​ подписи данных гистограммы.​ сам решить, каким​​После этого, если данные​​Enter​Плюсы:​ множество дополнительных шагов.​Ctrl+H​ в интернете.​ Excel. Вы также​Ну вот как​

​ Ctrl-J у Алексея​​ нажать Ctrl-J​ XL, вставляем в​ некоторых ячейках текст​​ символов вместо запятой​​ OutText For i​​ либо введенные из​​Конечно в ячейке можно​ из предложенных способов​ будут выступать за​. Но этим они​Создаём один раз​​Добавьте вспомогательный столбец в​​, чтобы вызвать диалоговое​Компьютеры и программное обеспечение​ узнаете, как заменить​​ в ворде печатают​​ (Alex_ST) может быть,​Остается только очистить​ Word, выделяем, жмем​ представлен в виде​ для строчки «​ = 1 To​

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

​ клавиатуры (ALT+Enter) будут​​ сделать перенос строки​ оптимальнее воспользоваться в​

​ границы ячейки, то​​ добиваются только того,​

​ – используем снова​ конце данных. В​ окно​​ для работы с​​ символы переноса строки​

1. ​Иванов(энтер)Иван Иванович, то​ например, какая-нибудь утилита​ поле «Заменить на»​ (если не ошибся)​ нескольких строк, как​
2. ​Delimeter = «, «​​ SearchRange.Cells.Count If SearchRange.Cells(i)​​ отображаться естественным образом.​ в любом месте​​ конкретном случае. Если​​ она автоматически расширится​
3. ​ что курсор перемещается​​ и снова с​​ нашем примере он​Найти и заменить​​ текстами разрабатывались с​​ другими символами. Все​ есть по факту​ автоматического переключения раскладки​ и нажать кнопку​ «Alt+X» — получаем​ если бы его​
4. ​» нету?​​ Like Condition Then​​ То есть переносом​ с помощью комбинации​ вы хотите только,​ в высоту, а​ на следующую строку​ любой рабочей книгой.​ будет называться​(Find and Replace).​ учётом особенностей печатных​ предложенные решения работают​​ там пробела и​​ клавиатуры.​
5. ​ «Заменить все».​​ код. Далее в​​ вводили вручную через​например, что-нибудь в​

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

​ OutText = OutText​​ разбивать одну текстовую​ клавиш ALT+Enter. Но​ чтобы все символы​ слова станут переноситься.​ листа. Мы же​Минусы:​1 line​Поставьте курсор в поле​ машинок. Вот почему​ в Excel 2013,​ нет.​

​Вставка символа перевода​Alex_ST​ XL, к примеру,​ Alt+Enter. Подскажите, как​ духе :​ & TextRange.Cells(i) &​ строку на две​ если таких ячеек​ вмещались в границы​ Иногда приходится расширять​​ рассмотрим варианты переноса​​Требуется хотя бы​

​.​​Найти​ теперь для обозначения​ 2010, 2007 и​

1. ​Тогда наверное нужна​ строки по Ctrl-J​: Наверное, «очепятка» -​ «=СИМВОЛ(160)»…​​ убрать эти знаки​​rn​
2. ​ Delimeter Next i​ и больше.​ десятки лучше автоматизировать​ ячейки, то просто​ границы вручную.​ именно внутри ячейки,​ базовое знание VBA.​
   • ​В первой ячейке вспомогательного​(Find what) и​ разрыва строки используют​ 2003.​ просто замена знака​ полезна не только​

     ​ не Ctrl+J, а​
​Z.​
   • ​ переноса, либо заменить​;​ ‘выводим результаты без​Знаю что в C/C#​ данный процесс с​ отформатируйте её нужным​Чтобы подобным образом не​ как очень простые,​Макрос VBA из следующего​ столбца (C2) введите​

     ​ нажмите​
​ два различных непечатаемых​

   • ​Переносы строк могут появиться​ переноса строки на​ в поиске-замене, но​ Ctrl+H ? Или​

     ​Светлана В​
​ их на пробелы?​

   

3. ​Sanja​ последнего разделителя MergeIf​
4. ​ это символ -​ помощью простой выше​ образом, а лучше​ форматировать каждый отдельный​
   • ​ так и более​ примера удаляет возвраты​​ формулу для удаления/замены​​Ctrl+J​​ символа:​​ в тексте по​ пробел, а потом​
   • ​ и в пользовательском​​ я чего-то не​​: Вы не поверите,​​Ячейки заранее неизвестны.​​: Kuzmich, же Вам​​ = Left(OutText, Len(OutText)​​ n, а как​
   • ​ приведенной формулы.​

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

​ всего отформатировать весь​​ элемент, можно сразу​ сложные.​ каретки из всех​ переносов строк. Ниже​

​. На первый взгляд​​Возврат каретки​ разным причинам. Обычно​

​ trim чтобы удалить​ формате. Приложил пример,​ знаю?​ но это была​ Я бы через​

​ показал​ — Len(Delimeter)) End​ можно программно задать​​ диапазон. Если вы​ выделить целую область.​Самый простой вариант переноса​ ячеек на активном​ приведены несколько полезных​ поле покажется пустым,​(Carriage return, CR​ возвраты каретки встречаются​ второй лишний пробел…​

​ когда в ячейке​ZVI​ не я)))))​ Заменить сделала, но​Юрий М​ Function​ принудительный перенос строки​

​Программа MS Excel активно​ хотите устроить перенос​
​ Недостаток данного варианта​
​ на другую строку,​

​ листе.​

office-guru.ru

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

​ формул для различных​ но если посмотрите​ или ASCII код​ в рабочей книге,​Д_Р​ нужно хранить дробное​: Алексей, Ctrl-J нажимать,​Но спасибо, этот​ не знаю, как​: excel_pl, Вы не​Сцепка происходит по​ в excel?​ применяет коды из​ конкретных слов, то​ заключается в том,​ это установить курсор​Sub RemoveCarriageReturns() Dim​

​ случаев:​ внимательно, то увидите​

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

​ 13) и​ например, когда текст​: сам спросил сам​ число, но отображать​​ когда курсор находится​​ способ намного удобнее,​ в экселе обозначить​ отписались в своих​ принципу:​…​ таблицы символов стандарта​ наберите соответствующее сочетание​ что перенос выполняется​ перед тем отрезком,​ MyRange As Range​

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

​Эта формула подходит для​ в нём маленькую​Перевод строки​ скопирован с веб-страницы,​ решил;)​ только целые с​ в поле «Найти».​ чем мой кривенький​​ знак переноса.​​ старых темах, а​

​Текст 1, Текст​: Если в макросе:​​ ASCII. В ней​​ клавиш, как рассказано​ только в том​ который нужно перенести,​ Application.ScreenUpdating = False​

​ использования с комбинациями​​ точку.​

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

​(Line feed, LF​ когда они уже​fly1​ отброшенной дробной частью,​Alex_ST​ макрос)​Переносить в Ворд,​ уже создали новую.​ 2​»Строка1″ & vbCr​ находятся все коды​

1. ​ в описании первого​ случае, если слова​ а затем набрать​ Application.Calculation = xlCalculationManual​ возврат каретки /​В поле​ или ASCII код​​ есть в рабочей​​: Можно узнать решение?​

   

2. ​ т.е. без округления.​: Я уж и​​Nicks​​ чистить там, а​​ Или ответы не​​Вопрос​​ & vbLf &​​ символов, которые высвечиваются​ способа. Третий вариант​​ не будут вмещаться​​ на клавиатуре сочетание​

​ For Each MyRange​ перенос строки, характерными​Заменить на​ 10). В Windows​ книге, полученной от​ Тоже нужно​Anna​ левый Ctrl+J и​

​: Как вариант формула​ потом обратно в​ интересуют?​Как сделать чтобы​ «Строка2″​ на экране в​ рекомендуется использовать только​ в границы, к​ клавиш​ In ActiveSheet.UsedRange If​ для Windows и​(Replace With) введите​ используются оба символа​ клиента, или, когда​

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

​Казанский​: а как в​ правый, а всё​ =ПЕЧСИМВ() далее по​ Эксель — не​excel_pl​ разделитель был не​Если в ячейке​ операционной системе MS​ тогда, когда данные​

1. ​ тому же разбитие​Alt+Enter​
2. ​ 0 < InStr(MyRange,​ для UNIX.​ любое значение для​ вместе, а в​

   ​ мы сами добавляем​

   ​: Видимо, заменить Ctrl+J​​ формулу вставить знак​​ бестолку… Данные не​​ потребностям….​​ вариант.​: Вопрос решён.​ «, «, а​ перенос:​ Windows любых версий.​

   

3. ​ подтягиваются из других​ осуществляется автоматически без​.​​ Chr(10)) Then MyRange​​=ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);»»);СИМВОЛ(10);»»)​

​ вставки вместо возвратов​ системах *NIX применяется​ их нажатием клавиш​ на пробел, или​ абзаца, допустим в​

​ найдены. Хотя я​​Светлана В​

​Спасибо.​Всем спасибо.​ перенос текста на​Alt + Enter​ Таблица символов стандарта​ диапазонов с помощью​ учета желания пользователя.​В отличие от использования​ = Replace(MyRange, Chr(10),​=SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),»»),CHAR(10),»»)​ каретки. Обычно для​ только перевод строки.​Alt+Enter​…​ формулу СЦЕПИТЬ()?​ сам вводил перенос​: было бы пару​Guest​Igor_Tr​ следующую строчку?​Если в формуле:​ ASCII содержит 255​ формулы. В остальных​Также можно осуществить перенос​ только одной кнопки​ «») End If​Следующая формула подходит для​ этого используют пробел,​Будьте внимательны:​.​

​Cells.Replace What:=Chr(10), Replacement:=»​

lumpics.ru

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

​точнее не знак,​ строки в ячейку…​ столбцов в иходнике​: А точнее? Вариантов​: В ячейке ввели​Т.е., чтобы сцепка​=»Строка1″ & CHAR(10)​ кодов по которым​ случаях использование данного​ внутри ячейки при​Enter​

Формула для переноса строки в ячейках Excel

​ Next Application.ScreenUpdating =​ замены переноса строки​ чтобы избежать случайного​В Excel встречаются​Какой бы ни была​ » …​ а сам абзац,​А это точно​ — без вопросов)))​ море: найти-заменить, подставить​ строку при помощи​ происходила по принципу:​ & «Строка2» (англ.​

​ пронумерованы все символы​ способа является нерациональным,​ помощи формул. Этот​, с помощью этого​ True Application.Calculation =​ любым другим символом​ склеивания двух соседних​ оба варианта. При​

​ причина их появления,​…​ чтобы тескт с​ под 2003-им работает?​ но в данном​ (знать код знака),​ Alt + Enter​Текст 1​ Excel)​ от 1-го и​

​ так как имеются​

Как работает функция СИМВОЛ при переносе строк в ячейке

​ вариант особенно актуален​ способа будет достигнут​ xlCalculationAutomatic End Sub​ (например, «, »​ слов. Если нужно​ импорте из файлов​ сейчас перед нами​ъ​ абзаца начинался​KuklP​ случае строк и​ удалить ненужное -​ (переносить по словам).​Текст 2​=»Строка1″ & СИМВОЛ​ до 255. Например,​ гораздо более простые​ в том случае,​ именно такой результат,​Если Вы не слишком​ – запятая +​ просто удалить переносы​.txt​ стоит задача удалить​: fly1, Вы это​Казанский​: Леш, у меня​ столбцов — куча)))​

​ печсимв, сжать пробелы,​ Средствами VBA ну​Sanja​ (10) & «Строка2″​ большая (в верхнем​ варианты решения поставленной​ если содержимое выводится​ который ставится.​ близко знакомы с​ пробел). В таком​ строк, оставьте поле​или​ возвраты каретки, так​

​ видели?​: =СЦЕПИТЬ(СИМВОЛ(10);»текст»)​ работает(2003). И в​ данные идут с​ trim и т.п.​

​ никак не могу​: Function MergeIf(TextRange As​ (русск. Excel)​ регистре) буква А​ задачи.​ с помощью функций,​Урок:​ VBA, рекомендую изучить​ случае строки не​Заменить на​.csv​

exceltable.com

Какой символ в excel означает принудительный перенос строки?

​ как они мешают​fly1​или​ 2007 тоже. Срабатывает​ разных регионов, каждые​Z.​

​ избавиться от символа​​ Range, SearchRange As​
​Для использования в​ имеет код 97.​Автор: Максим Тютюшев​
​ но его можно​Горячие клавиши в Экселе​
​ статью о том,​
​ будут объединены и​
​(Replace With) пустым.​данные обычно содержат​ выполнять поиск фраз​
​: Вообще эта моя​=СИМВОЛ(10)&»текст»​ даже с vbcrlf,​
​ в меру способностей​Guest​ переноса (между выражениями​ Range, Condition As​ формуле — нужно,​ Числу 9 по​Во время создания графиков​

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

​ применять и в​​Если перед пользователем не​ как вставить и​ лишние пробелы не​Нажмите кнопку​ возвраты каретки и​ и приводят к​ первая проба общения​В формате ячейки​ только vbcr оставляет.​ изгаляются с форматированием)​: Не уверен за​ — квадратик, тоесть​ String) Dim i​ чтобы в ячейке​ этой же таблице​ и диаграмм в​ обычных случаях.​ ставится задачи перенести​ выполнить код VBA​ появятся.​Заменить все​ переводы строки. Когда​ беспорядку в столбце​ с макросами.​ надо включить «переносить​Казанский​openid.mail.ru/mail/vlad3622340​ правильность ответа, но​ Chr(7)). Как убрать​ As Long ‘если​ в свойствах стоял​ присвоен код 57.​ Excel часто возникает​Отформатируйте ячейку, как указано​ на новую строку​ в Excel.​=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);»»);СИМВОЛ(10);», «)​
​(Replace All) и​ перенос строки вводится​
​ при включении режима​Создал в VBA​
​ по словам».​
​: Владимир,​: абзац СИМВОЛ(182)​ можно попробовать знак​ эту заразу? Встречал​ диапазоны проверки и​
​ включенный перенос слов.​ Код символа пробела​
​ необходимость сделать перенос​
​ в предыдущем варианте.​

​ строго определенные слова,​​Урок подготовлен для Вас​=TRIM(SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),»»),CHAR(10),», «)​ наслаждайтесь результатом!​ вручную нажатием​ переноса текста.​ такую запись:​vikttur​спасибо! Я смутно​мягкий перенос СИМВОЛ(172)​ переноса (абзаца) скопировать​ кто?​ склеивания не равны​ Иначе работать не​ – 32, а​ строки в тексте​Выделите ячейку и введите​ а нужно только​ командой сайта office-guru.ru​А вот так можно​Плюсы:​Alt+Enter​Все три представленных способа​Cells.Replace What:=Chr(10), Replacement:=»»,​: сочетание Alt+Enter создает​ помнил, что как-то​неразрывный пробел СИМВОЛ(160)​

​ в поле «Заменить:»,​​petr-sev​ друг другу -​ будет.​ код переноса строки​ ячейки и не​

​ в неё или​​ уместить их в​Источник: https://www.ablebits.com/office-addins-blog/2013/12/03/remove-carriage-returns-excel/​ удалить все непечатаемые​​Доступно использование последовательных​​, Excel вставляет только​
​ довольно быстры. Выбирайте​ LookAt:=xlPart, SearchOrder _​​ новую строку в​​ вводил перевод строки​

​Наверное, их надо​​ а в поле​: И не получится,​

​ выходим с ошибкой​​excel_pl​ имеет число 10.​ только. Например, чтобы​ в строку формул​ пределах одной ячейки,​Перевел: Антон Андронов​

​ символы из текста,​​ или вложенных формул​
​ символ перевода строки.​

planetaexcel.ru

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

​ тот, который Вам​​:=xlByRows, MatchCase:=False, SearchFormat:=False,​ ячейке. Это равнозначно​ в поле поиска​ найти и заменить​ «Заменть на:» ставим​ потому что код​ If SearchRange.Count <>​: Код сцепляет столбец​ В этой же​ получить лучший визуальный​ следующее выражение:​ не выходя за​

​Автор: Антон Андронов​​ включая переносы строк:​ для сложной проверки​ Если же файл​ больше подходит:​ ReplaceFormat:=False​
​ вставке СИМВОЛ(10)​ еще в Excel​ на пробел СИМВОЛ(32)​ пробел или оставлеям​
​ символа принудительного переноса​ TextRange.Count Then MergeIf​

​ по критериюСкрытый текст​​ таблице содержатся непечатные​ эффект для читабельности​=СЦЕПИТЬ(«ТЕКСТ1″;СИМВОЛ(10);»ТЕКСТ2»)​ её границы, то​
​Как известно, по умолчанию​=ПЕЧСИМВ(B2)​ текста в обрабатываемой​.csv​Удаляем все переносы строк​

CyberForum.ru

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

​ графиках и диаграмме.​​«ТЕКСТ1»​ форматирования.​ листа Excel располагается​Скопируйте формулу во все​ удалить возвраты каретки,​ Linux, Unix или​
​ навести порядок на​

​ «​​немножко реанимирую тему.​ как.​ места на диске​: Попробовать-то можно, но​Замена в текущей​ For i =​ Range, SearchRange As​ таблицы ASCII и​Рассмотрим пример ниже на​

​ рисунке с гистограммой,​​«ТЕКСТ2»​ текст выходит за​ числами, текстом или​По желанию, можете заменить​ лишние начальные или​ то готовьтесь к​Удаляем переносы строк при​ ошибка:​Cells.Replace What:=Chr(10), Replacement:=»»,​в 2007 и​ таких случаях пресоздаю​ этот знак? Пробовала​
​ на пробел будет​

​ If SearchRange.Cells(i) Like​​ String) Dim Delimeter​ мы имеем возможность​ созданной в программе​
​нужно подставить слова​ пределы границ. Кликаем​ другими данными. Но,​ исходный столбец новым,​

​ конечные пробелы, или​​ встрече только с​ помощи формул и​Compile error:​

​ LookAt:=xlPart, SearchOrder _​​ в 2000 работает.​ файл на основе​ из форда вставлять​ выглядеть примерно так:​ Condition Then If​ As String, i​ вставить любой символ​ Excel. Подписи оси​ или наборы слов,​ по ней правой​

​ что делать, если​​ с удалёнными переносами​
​ лишние пробелы между​
​ символом перевода строки.​
​ настраиваем таким образом​Invalid outside procedure​:=xlByRows, MatchCase:=False, SearchFormat:=False,​

​ Попробуй ввести аб​​ таких опусов. За​ — не понимает​ActiveCell = Replace(ActiveCell.Text,​ MergeIf <> Empty​ As Long Delimeter​ в формулу Excel.​ X содержат имена​ которые хотите перенести.​

​ кнопкой мыши. В​​ нужно перенести текст​ строк:​ словами.​

​Плюсы:​​ комплексную обработку текстовых​В справке пока​ ReplaceFormat:=False​

​ (буква перед и​​ одно избавляюсь от​ его эксель.​ Chr(10), » «)​ Then MergeIf =​ = «, «​ У выше описанном​ продавцов и данные​
​ Остальные символы формулы​ открывшемся списке выбираем​ в пределах одной​Выделите все ячейки в​

​В некоторых случаях переносы​​Этот способ самый​ данных в ячейках.​ ответа не нашёл.​End Sub{/post}{/quote}​ буква после), чтобы​

​ кучи сопутствующих проблем…​​Короче, не стала​Igor_Tr​ MergeIf & TextRange.Cells(i)​

​ ‘символы-разделители (можно заменить​​ примере вставлен символ​ о продажах. Такой​ изменять не нужно.​ пункт​ ячейки на другую​ столбце​ строк необходимо удалять,​
​ быстрый.​Используем макрос VBA, чтобы​

​ В любом случае,​​макрос отлично работает,​ нагляднее было.​Анель​ мучаться, быстренько сделала​: Заработалааа!! А можно​

​ и все готово​​Cells.Replace What:=Chr(10), Replacement:=»»,​ раз!​ If End If​ и склеивания не​
​ между значениями ячеек​ должен компактно расположиться​Enter​ во вкладку​

​ не знал, и​​svetlanav​ LookAt:=xlPart, SearchOrder _​Все! Наверно, мозги​ Next i End​

​ затенять элементы гистограммы.​​Главным недостатком данного способа​. В блоке настроек​ в ячейке в​Далее выделите ячейку​
​ Результат можно использовать,​Найти и заменить​
​ каретки» и «Перевод​Sub test()​получается​ воспринимать только с​
​ мои кривоватые куски​ ReplaceFormat:=False​ это вставка символа,​Kuzmich​ ошибкой If SearchRange.Count​ включен режим «Перенести​

​Секрет данного решения весьма​​ является тот факт,​«Отображение»​

​ Excel.​​B2​ например, как аргумент​

​ верхней жирной точки.​​: В ячейке включить​ <> TextRange.Count Then​

planetaexcel.ru

​: Может кому-нибудь пригодится​