Как удалить переносы строк (возвраты каретки) из ячеек в Excel 2013, 2010 и 2007
Смотрите также будет зависеть, прошу объекта тоже переносится использования макросов… А As Range If XL в редактор:: Ситуация следующая: вЮрий Мв качестве разделителя и абзац готов… Alt показано как
«») End If будут объединены и или вложенных формул встрече только с книг.Эта инструкция познакомит Вас прощения на нижние строки, то он в Not TypeOf Selection текста. Или -shva Excel есть документ,: Кстати, разделитель можно использовать «другой» символ,
В Excel морочимся ввести любой символ, Next Application.ScreenUpdating = лишние пробелы не для сложной проверки символом перевода строки.Замечание: с тремя способамиKarataev но можно и них ничего не
Is Range Then 1 мысль, 1, да такой, что
- указать и так? который ввести с кучей пробелов и зная его ASCII
- True Application.Calculation = появятся. текста в обрабатываемойПлюсы:Первоначально термины «Возврат
- удалить возвраты каретки: Создание строк прямо без этого обойтись. понимает ,
Exit Sub If строка — вAlt + Enter. если проверить содержимое Alt+Enter доп цифровой клавиатуры, т.п. код. Таблицу кодов xlCalculationAutomatic End Sub=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);»»);СИМВОЛ(10);», «) ячейке. Например, можно
Этот способ самый каретки» и «Перевод из ячеек в в таблице.Прикладываю пример и только вот забыл pReg Is Nothing один обзац/ячейку.shva ячейки, то оказываетсяCергей_psv86 удерживая при этомМожет быть как-то можно скачать здесь:Если Вы не слишком=TRIM(SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),»»),CHAR(10),», «) удалить возвраты каретки, быстрый. строки» использовались при Excel. Вы также1) Макрос сделан
трепетно надеюсь на об этом в Then Set pReg2. Прикладывать реальный: Спасибо большое!!! текст в ней: Проблема в том, нажатой клавишу ALT: можно перенести часть . близко знакомы сА вот так можно а затем найтиМинусы: работе на печатных узнаете, как заменить из расчета, что положительный ответ вопросе упомянуть. = CreateObject(«VBScript.RegExp») pReg.Global пример в реальныхiam1968 написан не в
Удаляем возвраты каретки вручную
что я не alt+(0,1,0) информации в абзац
С помощью диалогового окна VBA, рекомендую изучить
удалить все непечатаемые лишние начальные илиНикаких дополнительных плюшек машинках и обозначали символы переноса строки
- будут использоваться восклицательныеKuzmichasjanechka = True: pReg.Pattern структуре и форматах.
- : Добрый день, форумчане. одну строку, а могу убрать этив общем сивол без таких заморочек? Символ (Вставка/ Текст/
- статью о том, символы из текста, конечные пробелы, илиВот так можно удалить две различных операции. другими символами. Все знаки с пробелами: В модуль листа: Добрый день! = » (?=d+.3. Откуда и
- Подскажите, пожалуйста, как в несколько, как-будто прямоугольники. Подскажите, пожалуйста, номер 10 -Sibd Символ) можно вставлять как вставить и включая переносы строк: лишние пробелы между переносы строк при Любознательный читатель может предложенные решения работают в столбце B. 1 макрос, область
- Снова надеюсь на )» End If как появился в в выделенных ячейках
Удаляем переносы строк при помощи формул Excel
нажимали Enter после как это сделать. перевод строки.: Alt+Enter символы, такие как выполнить код VBA=ПЕЧСИМВ(B2) словами. помощи инструмента « самостоятельно найти подробную в Excel 2013,2) Данные на
под шестой строкой Вашу помощь For Each Cell вашем XL знак в фрагментах текста каждого слова, ноСпасибо!Сергей_psv86Цкинм латимерия ©, или специальные в Excel.=CLEAN(B2)
В некоторых случаях переносыНайти и заменить информацию об этом 2010, 2007 и
- листе должны начинаться очистите от данных.Искала в интернетах, In Selection Cell.Value «¶», или не «_2._» первый пробел
- когда ячейка неZ: ———————————————————: Супер! Спасибо)) знаки, такие какУрок подготовлен для ВасСкопируйте формулу во все
- строк необходимо удалять,»: в интернете. 2003. со строки 2. Sub Абзац() Dim
не нашла, хотя
= pReg.Replace(Cell.Value, vbLf)
- XL у вас заменить на абзац активна, то все: По этапам:Спасибо за ответ,Виктор сергиенко длинное тире (—) командой сайта office-guru.ru ячейки столбца. чтобы в дальнейшем
Выделите все ячейки, в
Компьютеры и программное обеспечение
- Переносы строк могут появиться3) В столбце i As Long на форуме лет
Next Cell End
вовсе?!.
- строк необходимо удалять,»: в интернете. 2003. со строки 2. Sub Абзац() Dim
- (а не на смотрится нормально.
- - справа формула но можно уточнить,: Спасибо! (Только левый или многоточие (…),
- Источник: https://www.ablebits.com/office-addins-blog/2013/12/03/remove-carriage-returns-excel/По желанию, можете заменить использовать текст в которых требуется удалить для работы с в тексте по B, в ячейке,
- Dim j As 5 назад кто-то Subiam1968 знак абзаца)?Как я понимаю — «=ПЕЧСИМВ(A1)», копируем
- как вводить данную
Удаляем переносы строк при помощи макроса VBA
Alt +Enter) которых нет наПеревел: Антон Андронов исходный столбец новым, качестве аргументов функций,
возвраты каретки или текстами разрабатывались с разным причинам. Обычно
после последней фразы Integer Dim iLastRow спрашивал, но покинулУспехов: 1) Да я
Т.е., исходной таблице так после каждого — вставить значения; комбинацию: ALT: alt+(0,1,0)?Алексей клавиатуре. Следует помнить,Автор: Антон Андронов с удалёнными переносами не внося изменения заменить их другим учётом особенностей печатных возвраты каретки встречаются не должно быть
As Long Dim обсуждениеiam1968 и не превращаю в каждой ячейке слова присутствует символ- найти-заменить -
А то у: Спасибо!
что отображение символов в
В MS WORD спецсимволы
строк:
office-guru.ru
Поиск ячеек содержащих в MS EXCEL спецсимволы
в исходные ячейки. символом. машинок. Вот почему в рабочей книге, восклицательного знака с iBeginRow As LongОсторожно интересуюсь, возможно: Всем спасибо. в редактор… список из нескольких «возврат каретки» или «)» на «)^»; меня не получается…Дмитрий еремичев ячейке зависит от
(конец абзаца, разрывВыделите все ячейки в Результат можно использовать,Нажмите теперь для обозначения например, когда текст пробелом.
- ‘начальная строка для ли такую штуку
- Выход такой.Просто уже есть пунктов представляется в
- символ «абзац» .- данные по
- New: СПС выбранного шрифта ячейки строки и т.п.)
- столбце например, как аргумент
- Ctrl+H
разрыва строки используют скопирован с веб-страницы,Макрос Sub Macro() переноса Dim MyArr провернуть:Заменой проставляем в такая таблица. А одну строку (без
Вопрос как на столбцам — разделитель: нажимаете левой рукойYanka ( легко найти сC функции, чтобы вызвать диалоговое два различных непечатаемых когда они уже Dim arr(), spl, iLastRow = Cells(Rows.Count,В некоторых ячейках нужных для абзаца распечатать надо в абзацев). Типа «1. VBA этот символ другой «^»… на левый ALT: спасибо!CTRL+SHIFT+F помощью стандартного поискаи нажатиемПРОСМОТР окно символа:
excel2.ru
Удаление абзаца в ячейке (Формулы/Formulas)
есть в рабочей lr As Long, 1).End(xlUp).Row iBeginRow =
одного столбца содержится местах какой-то не удобном для восприятия ….. 2. ……. обозначается, и как
Юрий М и держите его,Катерина соловьева
). Например, некоторые шрифты
(
Ctrl+C
(LOOKUP).
Найти и заменитьВозврат каретки книге, полученной от
rowscount As Long,
excelworld.ru
Как сделать абзац (новую строку) внутри ячейки в Excel?
10 For i много информации, которую встречающийся символ, например
виде (т.е. в 3. ……. 4. все слова в
: Активируйте Вашу ячйеку. а правой рукой: левый (!)Alt - включают дроби, знаки
CTRL+Fскопируйте данные в
Минусы:(Find and Replace).
(Carriage return, CR клиента, или, когда i As Long,
= 3 To хотелось бы разнести
«%%». данном случае не
……» ячейке вернуть в
Поместите курсор в нажимаете 0 1 Спасибо!
национальных алфавитов и), т.к. им соответствуют
буфер обмена.Потребуется создать вспомогательныйПоставьте курсор в поле или ASCII код
разбить ячейку, в которой несколько абзацев, на столбци — отдельный абзац в отдельном столбце
мы сами добавляем j As Long, iLastRow MyArr =
на несколько строкВыделяем интересующие ячейки. ст рокой, аКак из сделать, одну строку. строку формул и
0 (на дополнительной
Базарбай қойшыбаев символы национальных валют
специальные комбинации символов
Далее выделите ячейку столбец и выполнить
Найти 13) и их нажатием клавиш k As Long
Split(Cells(i, 2), ChrW(10))
под этой ячейкой.Включаем дополнительную клавиатуру
списком). что бы в
Знаю что в там уже удалите. клавиатуре — в: спасибо (см. статью ). (^v, ^l). ВB2
множество дополнительных шагов.(Find what) иПеревод строки
Alt+Enter Application.ScreenUpdating = False
For j = Информация логически никак (Num Lock). Заменить.2) Пример прилагаю. каждой ячейке перед Юникоде он имеет
Но не более правой части клавиатуры)Светлана глущенко Встроенный шрифт Symbol окне стандартного поиска, нажмите сочетание клавишДобавьте вспомогательный столбец в нажмите(Line feed, LF. lr = Columns(«A»).Find(What:=»*», 0 To UBound(MyArr) не разделена, этоНайти «%%».3) Знак абзац
«2._» вставился абзац номер 00B6. одного этого символа — ничего не: Большое большое спасибо. содержит стрелки, маркеры EXCEL использование таких
Shift+F10 конце данных. ВCtrl+J или ASCII кодКакой бы ни была LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
Cells(iBeginRow + j,
делается вручную, поэтому
Становимся на Заменить «живёт» в Эксель (разрыв строки)?Заранее благодарен. в каждой строке. появится (т.е. не
Важно, что уточнили и знаки, используемые комбинаций не предусмотрено,и выберите
нашем примере он. На первый взгляд 10). В Windows причина их появления, _ SearchDirection:=xlPrevious, MatchCase:=False, 2) = MyArr(j)
можно выбрать в
на. Нажимаем и во Вставка, Символы,
Что бы вBelthazor4 Понимаю, что для
пытайтесь что-либо увидеть левый enter!
в науке. Имеются но из ситуацииВставить
будет называться поле покажется пустым, используются оба символа сейчас перед нами SearchFormat:=False).Row arr() = Cells(iBeginRow + j, качестве разделителя любой держим Alt. С Специальные знаки.одной: макрорекордер выдал вот одной ячейки это в окошке), нажмитеСергей_psv86 также дополнительные шрифты, можно выйти по-другому.(Insert).1 line
но если посмотрите вместе, а в стоит задача удалить Range(«A1:B» & lr).Value
1) = Cells(i, символ или группу дополнительной клавиатуры вводимiam1968ячейке текст выглядел
что вручную сделать не кнопку «Далее» и: Добрый вечер, Уважаемые такие как Wingdings,
planetaexcel.ru
Как удалить символ абзаца
Для поиска, например, спецсимволаУдалите вспомогательный столбец.. внимательно, то увидите системах *NIX применяется возвраты каретки, так For i = 1) Next iBeginRow символов, либо переход «010» (при этом: Попробовал перебросить ячейки так:ActiveCell.FormulaR1C1 = «qwefwrgfwergfqwregwer» составляет труда, а «Готово»
Коллеги! содержащие декоративные символы. Разрыв страницы (см.Плюсы:В первой ячейке вспомогательного
в нём маленькую только перевод строки. как они мешают UBound(arr) To 2 = iBeginRow + на новую строку
в строке «заменить в Ворд, в1. …..
& Chr(10) &
когда их много…Сергей_psv86Помогите пожалуйста разбить
VIDEO56 статью Вставка символаСоздаём один раз столбца (C2) введите
точку.Будьте внимательны:
выполнять поиск фраз Step -1 spl
UBound(MyArr) + 1 (абзац). на» ничего не нём повставлял абзацы
2. ……. «wdfqwfwefwef2w»То есть тебе Попробовал заменой по: Спасибо большое! Тепер
ячейку, в которой: Еще раз всем Разрыва строки для – используем снова формулу для удаления/заменыВ поле
В Excel встречаются и приводят к = Split(arr(i, 2), Next End Sub
Т.е. идея в
отображается!!!). Отпускаем Alt. заменой. Всё нормально.
CyberForum.ru
как вставить разрыв строки перед «_2._»?
3. …….. нужно Chr(10)
листу — не я понял, но несколько абзацев, на пламенный привет. удобства чтения формул и снова с переносов строк. Ниже
Заменить на оба варианта. При беспорядку в столбце «! «) Ifasjanechka следующем: эксель по Заменить всё. СА при вставке4. ….
Vlanib получислось. Может жители всё равно не столбци — отдельныйПодскажите пожалуйста можно
в ячейке) нужно любой рабочей книгой. приведены несколько полезных(Replace With) введите
импорте из файлов
при включении режима
UBound(spl) = 0
: Kuzmich, получилось!
разделителям понимает, что данным пунктом всё из Ворда вЯ пробовал заменой: Для одной ячейки: Планеты подскажут как выходит, так как абзац в отдельном ли формулой удалить сделать следующее:Минусы: формул для различных любое значение для
.txt переноса текста. Then GoTo metka
а вот вопрос: тут что-то много готово. Эксель, каждая ячейка вставлять знак «¶»,[A1] = Replace([A1], эти прямоугольники удалить.
остаеться только первая столбце. абзацы (Alt+enter) в
перейти в раскладку АнглийскийТребуется хотя бы случаев: вставки вместо возвратовилиВсе три представленных способа
End If rowscount а можно ли всего, и самПовторяем процедуру для
с абзацами разбивается например, «2._» заменить Chr(10), » «)слэн строка.Пример: ячейке. Или только (США)
базовое знание VBA.
Эта формула подходит для каретки. Обычно для.csv довольно быстры. Выбирайте
= UBound(spl) + сделать, чтобы прям создает снизу строки остальных пунктов, перед на несколько ячеек,
на «¶2._». ОноBusine2009: ну тогда вотПример во вложении.Исходное значение Необходимо при помощи макроса?нажатьМакрос VBA из следующего
использования с комбинациями этого используют пробел,данные обычно содержат тот, который Вам 1 Rows(i +
в таблице строки для этой инфо которыми надо повставлять
по абзацу в и заменилось, но: так — см Необходимо разбить на разбить на_Boroda_CTRL+F примера удаляет возвраты возврат каретки / чтобы избежать случайного возвраты каретки и больше подходит: 1).Resize(rowscount — 1).Insert создавались? потому что и переносит в абзацы. каждой. Всё ломается.
именно так, со
HDR влож
4 столбца. У
»Postponed: Совсем удалить или; каретки из всех перенос строки, характерными
склеивания двух соседних
переводы строки. КогдаУдаляем все переносы строк
Range(«A» & i).Resize(rowscount).Value
и строк много, соответствии с разделителями.KuklP Ёлы-палы… знаком. А разрыв,сначала формула подставить, меня же выходитTo Deploy to заменить на пробел?установить курсор в поле
ячеек на активном для Windows и слов. Если нужно перенос строки вводится
вручную, чтобы быстро = Range(«A» & и помимо этих В примере разбила:Igor67 строки так и
выложите, пожалуйста, пример потом копировать-вставить значения,
только один с Liveудалить Найти; листе. для UNIX. просто удалить переносы вручную нажатием навести порядок на i).Value k =
planetaexcel.ru
Возможно ли абзацы в ячейке разнести на специально созданные строки под этой ячейкой?
столбцов есть и инфо по абзацам,
iam1968,: В Excel это не появился, т.е. файла Excel: просто потом текст по первой строкой ячейки.To complete Postponed200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПОДСТАВИТЬ(B40;СИМВОЛ(10);)
удерживая клавишу ALT, набратьSub RemoveCarriageReturns() Dim=ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);»»);СИМВОЛ(10);»»)
строк, оставьте полеAlt+Enter одном листе. i For j другие, и потом чтобы визуально легчето есть Андрей( живет или СИМВОЛ(10), по прежнему пишется я такую ситуацию столбцам, используя указанныйГде я ошибся? | To Deployна пробел на цифровой клавиатуре
MyRange As Range=SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),»»),CHAR(10),»»)Заменить на, Excel вставляет толькоУдаляем переносы строк при = 0 To их придется как-то было воспринимать, ноanvg или Alt+Enter в в одну строку, не могу создать. в формуле разделитель(~)Заранее спасибо! to Live |Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПОДСТАВИТЬ(B40;СИМВОЛ(10);» «) (блок цифр справа) Application.ScreenUpdating = False
Следующая формула подходит для(Replace With) пустым. символ перевода строки. помощи формул и UBound(spl) Range(«B» & состыковывать с этими
если с этим) зря для Вас ячейке.
только добавился знакshvaZЮрий М To completeVIDEO56 0010; Application.Calculation = xlCalculationManual замены переноса строкиНажмите кнопку Если же файл настраиваем таким образом k).Value = spl(j) новыми. Можно ВПРом, могут быть трудности, старался?anvg «¶».: Подскажите пожалуйста мне: Спасибо, Слэн -: В Вашем примереЗаранее спасибо!: Александр, вай слюшайотпустить ALT (символ может For Each MyRange любым другим символомЗаменить все.csv комплексную обработку текстовых
k = k конечно…
можно использовать любойanvg: Макрос для выделенныхА как повставлять наоборот — как «*&*» выручил, т.к. удалите символы, которыеслэн вальшебник да??? быть не отображен); In ActiveSheet.UsedRange If (например, «, »(Replace All) и
получен от поклонника данных в ячейках. + 1 NextНаверное, я неправильный другой символ (в: Сергей, доброе утро.
ячеек «реальные» абзацы в установить символ абзаца.
поздно разглядел тандем выглядят (в строке: в чем проблема-то?Спасибо!нажать ОК.
0 < InStr(MyRange, – запятая + наслаждайтесь результатом!
Linux, Unix илиИспользуем макрос VBA, чтобы j metka: Next пример приложила, не примере — !).Да не беспокойтесь,
Public Sub InsNewLine() выделенных ячейках? Давно мучает этот двух Chr. формул), как прямоугольники.текст по столбцам,В Worde все простоВ статье Ввод символов Chr(10)) Then MyRange пробел). В такомПлюсы: другой подобной системы, очистить от переносов Application.ScreenUpdating = True подумала, что отВ примере еще видимо ТС хочет Static pReg AsZ вопрос.HDR Далее по инструкции да и все.. — ткнул Enter с помощью клавиши = Replace(MyRange, Chr(10), случае строки неДоступно использование последовательных то готовьтесь к строк несколько рабочих End Sub размеров таблицы решение нарисовала, что название решения только без Object Dim Cell: 1. Не превращать
planetaexcel.ru
Busine2009
Skip to content
В этом совете вы найдете 4 совета для удаления символа переноса строки из ячеек Excel. Вы также узнаете, как заменять разрывы строк другими символами. Все решения работают с Excel 2019, 2016, 2013 и более ранними версиями.
Перенос строки в вашем тексте внутри ячейки Excel может возникнуть разными способами. Обычно он появляется, когда вы копируете текст с веб-страницы или из Word, получаете файл, который уже содержит разрывы строк, от коллеги или клиента. Или вы добавляете его самостоятельно, используя комбинацию Alt + Enter
.
В любом случае, вы можете решить убрать перенос строки из ваших ячеек, поскольку он не позволяет найти нужную фразу или же заставляет содержимое столбца выглядеть неаккуратно, когда вы включаете опцию переноса текста. Если вы решите загрузить ваши данные в файл .csv для использования в других программах, то в итоге у вас одна ячейка с переносами строк превратится в несколько. Конечно, это нарушит структуру ваших данных.
Все эти 4 способа, которые мы вам предлагаем, действительно быстрые. Выберите тот, который вам больше всего подходит:
- Как убрать перенос строки при помощи «Найти и заменить».
- 3 формулы, чтобы удалить переносы строк в ячейках.
- Как можно использовать макрос VBA.
- Удаляем перенос строки с помощью надстройки Ultimate Suite
Примечание. Первоначально термины «возврат каретки» и «перевод строки» использовались в пишущей машинке и означали два различных действия.
Компьютеры и программное обеспечение для обработки текстов создавались с учетом специфики пишущей машинки. Вот почему теперь для обозначения переноса строки используются два разных непечатаемых символа: «Возврат каретки» (CR, код ASCII 13) и «Перевод строки» (LF, код ASCII 10).
Имейте в виду, что в Excel вы можете найти оба варианта. Если вы импортируете данные из файла .txt или .csv, вы с большей вероятностью найдете комбинацию возврат каретки + перевод строки. Когда вы разбиваете текст в ячейке, используя Alt + Enter
, то Excel вставляет только перевод строки. Если вы получите файлы .csv от человека, который использует Linux или Unix, то там также найдете только перевод строки.
Удаление вручную.
Плюсы: самый быстрый способ.
Минусы: никаких дополнительных возможностей.
Итак, воспользуемся помощью стандартной функции «Найти и заменить»:
- Выделите все позиции, которые вы хотите обработать.
- Нажмите
Ctrl + H
, чтобы открыть диалоговое окно «Найти и заменить». - В поле » Найти» введите
Ctrl + J
. Оно будет выглядеть пустым, но вы увидите крошечную точку. - В поле «Заменить на» введите любое значение для замены. Обычно это пробел, чтобы избежать случайного «слипания» двух слов. Если вам нужно просто удалить разрывы строк, оставьте поле пустым.
- Нажимаем кнопку «Заменить все» и наслаждаемся результатом!
Удалите разрывы строк с помощью формул Excel.
Плюсы: вы можете использовать вложенные формулы для более сложной обработки текста в ячейках. Например, можно удалить символы перевода строки, а затем удалить лишние начальные и конечные пробелы, а также пробелы между словами.
Или вам может потребоваться удалить перевод строки, чтобы использовать ваш текст в качестве аргумента другой функции без изменения исходных ячеек. Например, если вы хотите использовать результат в качестве аргумента функции ВПР.
Минусы: вам нужно создать вспомогательный столбец и выполнить некоторое количество дополнительных действий.
- Добавьте вспомогательный столбец в конец ваших данных. Вы можете назвать его «В одну строку».
- В первой его позиции (C2) введите формулу для удаления или замены переносов строк. Здесь мы представим вам несколько полезных формул для разных случаев:
Удаление возврата каретки и перевода строки как в Windows, так и в UNIX.
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;СИМВОЛ(13);»»);СИМВОЛ(10);»»)
Заменяем перенос строки любым другим символом (например, запятая + пробел). В этом случае строки не будут «слипаться» и лишние пробелы не появятся.
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;СИМВОЛ(13);», «);СИМВОЛ(10);», «))
Или же можно обойтись и без запятой, просто заменив пробелом:
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;СИМВОЛ(13);» «);СИМВОЛ(10);» «))
Если вы хотите удалить из текста все непечатаемые символы, включая в том числе и переносы строк:
=ПЕЧСИМВ(A4)
Как видите, не всегда результат выглядит красиво и аккуратно. В зависимости от исходных данных выбирайте наиболее подходящий для вас вариант.
При желании вы можете заменить исходный столбец на тот, в котором были удалены переносы строк:
- Выделите все данные в столбце В и нажмите
Ctrl + C
, чтобы скопировать данные в буфер обмена. - Теперь выберите А2 и нажмите
Shift + F10 + V
. - Удалите вспомогательный столбец В.
Макрос 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, просто следуйте рекомендациям ниже:
- Нажмите
Alt + F11
, чтобы открыть редактор Visual Basic. - Щелкните правой кнопкой мыши имя книги на панели «Project — VBAProject » (в верхнем левом углу окна редактора) и выберите «Вставить» -> «Модуль» в контекстном меню.
- Скопируйте код VBA и вставьте его в правую панель редактора VBA ( окно « Module1 »).
- Сохраните книгу как «книгу Excel с поддержкой макросов».
НажмитеCrl + S
, затем нажмите кнопку «Нет» в диалоговом окне предупреждения «Следующие функции не могут быть сохранены в книге без макросов». - Откроется диалоговое окно «Сохранить как». Выберите «Книга Excel с поддержкой макросов» из раскрывающегося списка «Тип файла». Нажмите кнопку «Сохранить».
- Нажмите
Alt + Q
, чтобы закрыть окно редактора и вернуться к своей книге. - Если вы хотите запустить код VBA, который вы добавили, как описано в разделе выше: нажмите
Alt + F8
, чтобы открыть диалог «Макросы». - Затем выберите нужный макрос из списка «Имя макроса» и нажмите кнопку «Выполнить».
Но если какая-либо формула возвращает возврат каретки, я боюсь, что с этим ничего нельзя поделать. Макрос не может найти, где именно в формуле происходит возврат каретки, поэтому он обрабатывает результат формулы, а не формулу как таковую.
Удаляем перенос строки с помощью надстройки Ultimate Suite.
Если вы являетесь пользователем Ultimate Suite for Excel , то вам не нужно тратить время на какие-либо из вышеперечисленных манипуляций. Все, что требуется, — это 3 быстрых шага:
- Выберите одну или несколько ячеек, в которых вы хотите удалить переносы строк.
- На ленте Excel перейдите на вкладку Ablebits Data и нажмите кнопку «Преобразовать (Convert)» .
- На панели «Преобразовать текст» выберите переключатель «Конвертировать перенос строки в (Convert line break to)», введите в поле «заменяющий» символ (это может быть точка с запятой, точка, запятая, пробел) и нажмите кнопку «Преобразовать (Convert)» .
В нашем примере мы заменяем каждый перенос строки пробелом:
В результате у вас будет аккуратно организованная таблица с однострочными адресами, как это изображено на рисунке выше. Такой же результат мы получали выше и при помощи формул, но занимало это гораздо больше времени.
Это далеко не единственный инструмент для упрощения работы с текстом. Вы можете удалить лишние пробелы, изменить регистр символов, добавить текст в начале в конце, перед или после выбранных символов, удалить непечатаемые символы, извлечь часть текста по позиции или после указанных символов, извлечь числа из текста, разделить текст по столбцам или строкам и многое другое. Подробнее вы можете ознакомиться с этими возможностями на страничке обзора инструментов работы с текстом.
Если вам интересно попробовать этот и еще 60 инструментов для экономии времени для Excel, вы можете загрузить пробную версию Ultimate Suite . Вы будете приятно удивлены, когда найдете решения для самых сложных и утомительных задач в Excel всего в несколько кликов!
Итак, теперь вы легко можете убрать либо заменить символ переноса строки в вашей таблице Excel.
Ещё о работе с текстом в Excel:
В этой статье я попробую разобрать все самые популярные вопросы связанные с понятием «Абзац в Excel». Чаще всего меня спрашивают, как перенести часть формулы на новую строку, чтобы формула удобно читалась. Но есть и другие вопросы: как удалить символ абзаца (переноса строки), как сделать, чтобы текст в ячейке перемещался на новую строку автоматически или наоборот, можно ли задать абзац прямо в формуле? Обо всем поподробнее:
Абзац — как мы все знаем, часть текста, отделенная от остального новой строкой. Эта новая строка записывается в большинстве программных продуктов отдельным символом. В Excel такой символ можно даже применять в формулах.
Содержание
- Абзац в Excel. Как использовать новую строку в формуле?
- «Подскажите, а как саму формулу разделить на новые строки?»
- Как перенести текст не меняя ничего внутри него. Формат Перенос текста?
- Как удалить символ абзаца из ячейки, нескольких ячеек?
- Как вставить символ абзаца в ячейку или поле поиска (диалоговое окно)?
- Похожие статьи
Абзац в Excel. Как использовать новую строку в формуле?
Если записать сцепление текста, то текст будет записываться в одну строку (если не применять формат «Перенос текста», см. ниже).
А что делать, если надо разделить текст по абзацам в одной ячейке в формуле? В Excel символ абзаца значится под номером 10.
Запишем вместо
=C3&" "&C4&" "&C5
Формулу
=C3&" "&СИМВОЛ(10)&C4&" "&СИМВОЛ(10)&C5
И получим разделение текста по абзацам:
«Подскажите, а как саму формулу разделить на новые строки?»
Частый вопрос. Удобно и красиво записать саму формулу, разделяя ее новыми строками. Это сильно упрощает читаемость формулы, особенно, если она длинная. Используйте комбинацию Alt + Enter, для переноса текста в строке формул. У меня даже есть отдельная заметка об этом, насколько это удобно.
Как перенести текст не меняя ничего внутри него. Формат Перенос текста?
Как мы знаем, данные внутри ячейки Excel могут иметь множество форматов. Так же и текст, например, формат выравнивание по центру. Формат же Перенос текста позволяет сделать автоматический перевод текста на новую строку по словам в зависимости от длины текста и ширины ячейки. Перейдите на вкладе Главная в раздел Выравнивание и нажмите на кнопку Перенос Текста:
Если вам необходимо поместить большой текст в Excel, то я рекомендую пользоваться специальной возможностью для вставки текста.
Как удалить символ абзаца из ячейки, нескольких ячеек?
Подробно как удалять любые символы в ячейках написано в отдельной статье. Здесь же мы рассмотрим самый распространенный способ — инструмент Найти и заменить. Выделите диапазон ячеек, где надо найти и удалить символ абзаца, нажмите горячую клавишу Ctrl+H и в появившемся окне в поле Найти: вставьте символ абзаца, а в поле Заменить: ничего не вставляйте (будет т.н. пусто) и нажмите Заменить все.
А где же взять сам символ абзаца?
Как вставить символ абзаца в ячейку или поле поиска (диалоговое окно)?
Выберите, куда нужно вставить символ. Чтобы добавить абзац в продуктах MS Office, есть 2 способа:
- Как мы писали выше, нажмите Alt + Enter, эта универсальная комбинация вставляет абзац
- Зажмите Alt и нажмите 1 и, не отпуская Alt, сразу ноль. Эти действия вставляют символ под номером 10.
Кстати, левый Alt у многих может и не сработать, пользуйтесь правым Altом на вашей клавиатуре!
Пример файла здесь
Имеется очень большая таблица перенесенная из Ворда. Для того, чтобы она адекватно скопировалась в Excel все абзацы в Ворде были заменены на знак «$». Каким образом знак «$» в Excel обратно поменять на абзац?
Заранее спасибо!
Ctrl+H
Найти: $
Заменить на: вводите через доп.клавиатуру NumLock с зажатой клавишей Alt — 010.
Заменить все
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453
Спасибо большое!!! Все сработало. А в чем хитрость? Это какие-то встроенные коды, которых нет в меню?
Цитата: Злата от 05.05.2010, 14:34Это какие-то встроенные коды, которых нет в меню?
Нет. Просто каждый символ имеет свой код. А с помощью доп.клавиатуры NumLock в сочетании с клавишей Alt можно вводить символы через эти коды.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453
Класс! Теперь буду знать. Еще раз огромное спасибо!
Часто требуется внутри одной ячейки Excel сделать перенос текста на новую строку. То есть переместить текст по строкам внутри одной ячейки как указано на картинке. Если после ввода первой части текста просто нажать на клавишу ENTER, то курсор будет перенесен на следующую строку, но другую ячейку, а нам требуется перенос в этой же ячейке.
Это очень частая задача и решается она очень просто — для переноса текста на новую строку внутри одной ячейки Excel необходимо нажать ALT+ENTER (зажимаете клавишу ALT, затем не отпуская ее, нажимаете клавишу ENTER)
Как перенести текст на новую строку в Excel с помощью формулы
Иногда требуется сделать перенос строки не разово, а с помощью функций в Excel. Вот как в этом примере на рисунке. Мы вводим имя, фамилию и отчество и оно автоматически собирается в ячейке A6
Для начала нам необходимо сцепить текст в ячейках A1 и B1 (A1&B1), A2 и B2 (A2&B2), A3 и B3 (A3&B3)
После этого объединим все эти пары, но так же нам необходимо между этими парами поставить символ (код) переноса строки. Есть специальная таблица знаков (таблица есть в конце данной статьи), которые можно вывести в Excel с помощью специальной функции СИМВОЛ(число), где число это число от 1 до 255, определяющее определенный знак. Например, если прописать =СИМВОЛ(169), то мы получим знак копирайта ©
Нам же требуется знак переноса строки, он соответствует порядковому номеру 10 — это надо запомнить. Код (символ) переноса строки — 10 Следовательно перенос строки в Excel в виде функции будет выглядеть вот так СИМВОЛ(10)
Примечание: В VBA Excel перенос строки вводится с помощью функции Chr и выглядит как Chr (10)
Итак, в ячейке A6 пропишем формулу
=A1&B1&СИМВОЛ(10)&A2&B2&СИМВОЛ(10)&A3&B3
В итоге мы должны получить нужный нам результат. Обратите внимание! Чтобы перенос строки корректно отображался необходимо включить «перенос по строкам» в свойствах ячейки. Для этого выделите нужную нам ячейку (ячейки), нажмите на правую кнопку мыши и выберите «Формат ячеек… »
В открывшемся окне во вкладке «Выравнивание» необходимо поставить галочку напротив «Переносить по словам» как указано на картинке, иначе перенос строк в Excel не будет корректно отображаться с помощью формул.
Как в Excel заменить знак переноса на другой символ и обратно с помощью формулы
Можно поменять символ перенос на любой другой знак, например на пробел, с помощью текстовой функции ПОДСТАВИТЬ в Excel
Рассмотрим на примере, что на картинке выше. Итак, в ячейке B1 прописываем функцию ПОДСТАВИТЬ:
=ПОДСТАВИТЬ(A1;СИМВОЛ(10); » «)
A1 — это наш текст с переносом строки; СИМВОЛ(10) — это перенос строки (мы рассматривали это чуть выше в данной статье); » » — это пробел, так как мы меняем перенос строки на пробел
Если нужно проделать обратную операцию — поменять пробел на знак (символ) переноса, то функция будет выглядеть соответственно:
=ПОДСТАВИТЬ(A1; » «;СИМВОЛ(10))
Напоминаю, чтобы перенос строк правильно отражался, необходимо в свойствах ячеек, в разделе «Выравнивание» указать «Переносить по строкам».
Как поменять знак переноса на пробел и обратно в Excel с помощью ПОИСК — ЗАМЕНА
Бывают случаи, когда формулы использовать неудобно и требуется сделать замену быстро. Для этого воспользуемся Поиском и Заменой. Выделяем наш текст и нажимаем CTRL+H, появится следующее окно.
Если нам необходимо поменять перенос строки на пробел, то в строке «Найти» необходимо ввести перенос строки, для этого встаньте в поле «Найти», затем нажмите на клавишу ALT, не отпуская ее наберите на клавиатуре 010 — это код переноса строки, он не будет виден в данном поле.
После этого в поле «Заменить на» введите пробел или любой другой символ на который вам необходимо поменять и нажмите «Заменить» или «Заменить все».
Кстати, в Word это реализовано более наглядно.
Если вам необходимо поменять символ переноса строки на пробел, то в поле «Найти» вам необходимо указать специальный код «Разрыва строки», который обозначается как ^l В поле «Заменить на: » необходимо сделать просто пробел и нажать на «Заменить» или «Заменить все».
Вы можете менять не только перенос строки, но и другие специальные символы, чтобы получить их соответствующий код, необходимо нажать на кнопку «Больше >> », «Специальные» и выбрать необходимый вам код. Напоминаю, что данная функция есть только в Word, в Excel эти символы не будут работать.
Как поменять перенос строки на пробел или наоборот в Excel с помощью VBA
Рассмотрим пример для выделенных ячеек. То есть мы выделяем требуемые ячейки и запускаем макрос
1. Меняем пробелы на переносы в выделенных ячейках с помощью VBA
Sub ПробелыНаПереносы() For Each cell In Selection cell.Value = Replace (cell.Value, Chr (32), Chr (10)) Next End Sub
2. Меняем переносы на пробелы в выделенных ячейках с помощью VBA
Sub ПереносыНаПробелы() For Each cell In Selection cell.Value = Replace (cell.Value, Chr (10), Chr (32)) Next End Sub
Код очень простой Chr (10) — это перенос строки, Chr (32) — это пробел. Если требуется поменять на любой другой символ, то заменяете просто номер кода, соответствующий требуемому символу.
Коды символов для Excel
Ниже на картинке обозначены различные символы и соответствующие им коды, несколько столбцов — это различный шрифт. Для увеличения изображения, кликните по картинке.