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.

Переносы строк внутри одной ячейки, добавляемые с помощью сочетания клавиш Alt+Enter — дело весьма частое и привычное. Иногда их делают сами пользователи, чтобы добавить красоты длинному тексту. Иногда такие переносы добавляются автоматически при выгрузке данных из каких-либо рабочих программ (привет 1С, SAP и т.д.) Проблема в том, что на такие таблицы приходится потом не просто любоваться, а с ними работать — и вот тогда эти невидимые символы переноса могут стать проблемой. А могут и не стать — если уметь правильно с ними обращаться.

Давайте-ка мы разберёмся в этом вопросе поподробнее.

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

Если нам нужно избавиться от переносов, то первое, что обычно приходит в голову — это классическая техника «найти и заменить». Выделяем текст и затем вызываем окно замены сочетанием клавиш Ctrl+H или через Главная — Найти и выделить — Заменить (Home — Find&Select — Replace). Одна неувязочка — не очень понятно, как ввести в верхнее поле Найти (Find what) наш невидимый символ переноса строки. Alt+Enter тут, к сожалению, уже не работает, скопировать этот символ непосредственно из ячейки и вставить его сюда тоже не получается.

Поможет сочетание Ctrl+J — именно оно является альтернативой Alt+Enter в диалоговых окнах или полях ввода Excel:

Обратите внимание, что после того, как вы поставите мигающий курсор в верхнее поле и нажмёте Ctrl+J — в самом поле ничего не появится. Не пугайтесь — это нормально, символ-то невидимый

В нижнее поле Заменить (Replace with) либо ничего не вводим, либо вводим пробел (если хотим не просто удалить переносы, а заменить их на пробел, чтобы строки не склеились в единое целое). Останется нажать на кнопку Заменить всё (Replace All) и наши переносы исчезнут:

Нюанс: после выполнения замены введённый с помощью Ctrl+J невидимый символ остаётся в поле Найти и может помешать в дальнейшем — не забудьте его удалить, установив курсор в это поле и несколько раз (для надёжности) нажав на клавиши Delete и Backspace.

Удаление переносов строк формулой

Если нужно решить задачу именно формулами, то можно использовать встроенную функцию ПЕЧСИМВ (CLEAN), которая умеет очищать текст от всех непечатаемых символов, включая и наши злополучные переносы строк:

Такой вариант, однако, не всегда бывает удобен, т.к. строки после этой операции могут склеиваться между собой. Чтобы этого не происходило, нужно не просто удалять символ переноса, а заменять его на пробел (см. следующий пункт).

Замена переносов строк формулой

А если хочется не просто удалить, а именно заменить Alt+Enter на, например, пробел, то потребуется уже другая, чуть более сложная конструкция:

Чтобы задать невидимый символ переноса мы используем функцию СИМВОЛ (CHAR), которая выводит символ по его коду (10). А потом функция ПОДСТАВИТЬ (SUBSTITUTE) ищет в исходных данных наши переносы и заменяет их на любой другой текст, например, на пробел.

Деление на столбцы по переносу строки

Знакомый многим и очень удобный инструмент Текст по столбцам с вкладки Данные (Data — Text to Columns) тоже может замечательно работать с переносами строк и разделить текст из одной ячейки на несколько, разбив его по Alt+Enter. Для этого на втором шаге мастера нужно выбрать вариант пользовательского символа-разделителя Другой (Custom) и использовать уже знакомое нам сочетание клавиш Ctrl+J как альтернативу Alt+Enter:

Если в ваших данных может встречаться несколько переносов строк подряд, то можно их «схлопнуть», включив флажок Считать последовательные разделители одним (Treat consecutive delimiters as one).

После нажатия на Далее (Next) и прохождения всех трёх шагов мастера мы получим желаемый результат:

Обратите внимание, что до выполнения этой операции необходимо вставить справа от разделяемого столбца достаточное количество пустых колонок, чтобы образовавшийся текст не затёр те значения (цены), которые были справа.

Деление на строки по Alt+Enter через Power Query

Ещё одной любопытной задачей является деление многострочного текста из каждой ячейки не на столбцы, а на строки:

Вручную такое делать долго, формулами — сложно, макросом — не каждый напишет. А на практике подобная задача встречается чаще, чем хотелось бы. Самым простым и лёгким решением будет использовать для этой задачи возможности надстройки Power Query, которая встроена в Excel начиная с 2016 года, а для более ранних версий 2010-2013 её можно совершенно бесплатно скачать с сайта Microsoft.

Чтобы загрузить исходные данные в Power Query их нужно сначала преобразовать в «умную таблицу» сочетанием клавиш Ctrl+T или кнопкой Форматировать как таблицу на вкладке Главная (Home — Format as Table). Если по каким-то причинам вы не хотите или не можете использовать «умные таблицы», то можно работать и с «глупыми». В этом случае просто выделите исходный диапазон и дайте ему имя на вкладке Формулы — Диспетчер имен — Создать (Formulas — Name Manager — New).

После этого на вкладке Данные (если у вас Excel 2016 или новее) или на вкладке Power Query (если у вас Excel 2010-2013) можно жать на кнопку Из таблицы / диапазона (From Table/Range), чтобы загрузить нашу таблицу в редактор Power Query:

После загрузки выделим столбец с многострочным текстом в ячейках и выберем на Главной вкладке команду Разделить столбец — По разделителю (Home — Split Column — By delimiter):

Скорее всего, Power Query автоматически распознает принцип деления и сам подставит условное обозначение #(lf) невидимого символа переноса строки (lf = line feed = перенос строки) в поле ввода разделителя. Если нужно, то другие символы можно выбрать из выпадающего списка в нижней части окна, если включить предварительно галочку Разделить с помощью специальных символов (Split by special characters).

Чтобы всё разделилось на строки, а не не столбцы — не забудьте переключить селектор Строки (By rows) в группе расширенных параметров.

Останется только нажать на ОК и получить желаемое:

Готовую таблицу можно выгрузить обратно на лист с помощью команды Закрыть и загрузить — Закрыть и загрузить в… на вкладке Главная (Home — Close&Load — Close&Load to…).

Важно отметить, что при использовании Power Query необходимо помнить о том, что при изменении исходных данных результаты автоматически не обновляются, т.к. это не формулы. Для обновления нужно обязательно щёлкнуть правой кнопкой мыши по итоговой таблице на листе и выбрать команду Обновить (Refresh) или нажать кнопку Обновить всё на вкладке Данные (Data — Refresh All).

Макрос для деления на строки по Alt+Enter

Для полноты картины давайте упомянем решение предыдущей задачи ещё и с помощью макроса. Откройте редактор Visual Basic с помощью одноимённой кнопки на вкладке Разрабочик (Developer) или сочетания клавиш Alt+F11. В появившемся окне вставьте новый модуль через меню Insert — Module и скопируйте туда нижеприведённый код:

Sub Split_By_Rows()
    Dim cell As Range, n As Integer

    Set cell = ActiveCell

    For i = 1 To Selection.Rows.Count
        ar = Split(cell, Chr(10))         'делим текст по переносам в массив
        n = UBound(ar)                    'определяем кол-во фрагментов
        cell.Offset(1, 0).Resize(n, 1).EntireRow.Insert             'вставляем пустые строки ниже
        cell.Resize(n + 1, 1) = WorksheetFunction.Transpose(ar)     'вводим в них данные из массива
        Set cell = cell.Offset(n + 1, 0)                            'сдвигаемся на следующую ячейку
    Next i
End Sub

Вернитесь в Excel и выделите ячейки с многострочным текстом, который надо разделить. Затем воспользуйтесь кнопкой Макросы на вкладке Разработчик (Developer — Macros) или сочетанием клавиш Alt+F8, чтобы запустить созданный макрос, который и проделает за вас всю работу:

Вуаля! Программисты — это, на самом деле, просто очень ленивые люди, которые лучше один раз как следует напрягутся, чтобы потом ничего не делать

Ссылки по теме

• Зачистка текста от мусора и лишних символов
• Замена текста и зачистка от неразрывных пробелов функцией ПОДСТАВИТЬ
• Как разделить слипшийся текст на части в Excel

Как удалить переносы строк (возвраты каретки) из ячеек в 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

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