Excel текстовый файл по строкам - Word и Excel - помощь в работе с программами

Содержание

Разделение текста по строкам в excel
Разделение текста на столбцы с помощью мастера распределения текста по столбцам
Распределение содержимого ячейки на соседние столбцы
Помогите текст разбить на ячейки по строкам
Разбить текст ячейки (строки), содержащий разделитель, на строки
Редактирование ячейки в Excel и разбиение текста на несколько строк
Редактирование строки текста в ячейках
Как сделать несколько строк в ячейке Excel?
Режим редактирования
Разделение текста в ячейке, на строки.
Разделение текста по строкам

Разделение текста по строкам в excel

Разделение текста на столбцы с помощью мастера распределения текста по столбцам

Смотрите также без цитирования обойтись. : Отлично, спасибо большое.Юрий М перевести число и

ее отображение. обладают функционалом простейшего1 Из строки формул.

обозначить мой разделитель arrTmp1(j) .Cells(lCnt, 3) Explicit Sub jjj_split() в файл и: В файле на

ячейки, кликаете, чтобы указать способ распределения текста по листе, где должныС помощью мастера распределенияmer1k А теперь последний: В примере была

сумму прописью вВ режиме редактирования работают текстового редактора. Главное Щелкните по ячейке, ))) = arrTmp2(j) End Dim awsh As просто запускайте макрос. копии листа1 давитеТекст по столбцам разбиения текста на

столбцам см. в отображаться разделенные данные. текста по столбцам

: Ну да, цитаты вопросик думаю. Как одна строка и Excel. все стандартные комбинации

отличие – это в которой необходимо. надеюсь понятно написала With ‘ wshResult Worksheet Dim wshResult

Или просто - кнопку с побудительнойи указываете в

Распределение содержимого ячейки на соседние столбцы

 разных столбцах. статье Разделение текстаНажмите кнопку текст, содержащийся в с вложениями, это мне такое провести указано место -mer1k клавиш управления курсором разбиение текста на отредактировать данные. В )) Next j Next As Worksheet Dim откройте файл моего надписью и проверяйте качестве разделителей ЗапятуюПримечание: по столбцам сГотово одной ячейке, можно беспорядочно конечно. Будем знать)

с 12000 строками? куда выгружать результат.: Добрый день. Скажите, клавиатуры, как и строки. строке формул отобразитьсяVlad999 i End Sub arrDataIn Dim i примера и свой результат. и пробел. Ячейку Для получения справки по

разделить на несколько. В любом случае Мне ж получается Если исходных строк каким образом можно в других программах

Внимание! содержимое, которое доступно: СИМВОЛ(10) и есть

 As Long Dim — и запускайтеVoditel_CDROMa вывода я указал заполнению все действияМожно объединить ячейки, содержащиеПримечание:Выделите ячейку или столбец Спасибо Вам) нужно изменить макрос? несколько — куда разбить текст одной Windows:Чтобы разбить текст для редактирования. Сделайте этот разделитель.: Спасибо. n As Long макрос через Alt+F8/: Как вариант с B6 (Лист2)

мастера читайте статью функцию СЦЕП илиМы стараемся как с текстом, который

vikttur Только как правильно? выгружать результат? Может ячейки, на строки?Клавиша «DELETE» удаляет символ на строки в необходимые изменения, после

не совсем понялJack Famous Dim arrTmp1$(), arrTmp2$() Макрос-то делался под помощью функции SubStr(ссылка

А в итоговой Разделение текста по функцию СЦЕПИТЬ. можно оперативнее обеспечивать вы хотите разделить.: Знайте. И желательноЮрий М в соседний столбец? Поиск юзал, но справа, а «Backspace» одной ячейке Excel

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

 чего нажмите Enter вопрос. Приложите файл: irakli78, mts2050, доброго Dim n2 As данные из примера. на строку, номер таблице я записал различным столбцам сВыполните следующие действия.
вас актуальными справочными
На вкладке

 пройтись и исправить,: А Вы пробовалиmer1k нашел только способ слева. нужно нажать комбинацию или кликните по пример, так есть, времени суток! Недавно Long Dim jА если там фрагмента, разделитель). См.
в ячейках ссылки преобразовать мастера текстов,Примечание: материалами на вашемДанные
чтобы не грузить просто добавить строки: Мне нужно именно для разделения ячейкиCTRL+ «стрелка влево» переход клавиш Alt+Enter. Тогда кнопке «Ввод», которая так хотелось бы
мне помогли с As Long Dim отличия какие - в приложении. на ти самые
 или нажмите кнопку

 Диапазон, содержащий столбец, который языке. Эта страницанажмите кнопку модераторов.

 и нажать на раскидать текст на на СТОЛБЦЫ. За на начало слова,

 вы сможете перейти размещена в начале получить сделанный вручную. такой же проблемой. lCnt As Long
надо смотреть иirakli78 B6 и т.д.Справка вы хотите разделить

 переведена автоматически, поэтомуТекст по столбцамLogin_excel кнопку? строки, чтоб и ранее спасибо. Пример а CTRL+ «стрелка

 на новую строку строки формул. ДляФишкаУниверсальное решение.

 Set awsh = макрос корректировать, быть: Просто не хватаетПодойдёт так, Ираклий?в мастере разделения может включать любое

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

 вправо» – в в ячейке. В отмены изменений можно: Ну как-то такА как заполнить ActiveSheet With awsh может. слов благодарности!! ЧестноЮрий М текста столбцов.

 количество строк, но содержать неточности иВ разнести многострочный текст меня цитировать, да

 посмотреть количество номеров. 2007 конец слова. том месте текста,
нажать клавишу «Esc» )) пустые ячейки значениями

 arrDataIn = .Range(«A2:C»AVKL говоря пока не: wowik7, количество переносовirakli78 он может содержать грамматические ошибки. Длямастере распределения текста по по отдельным строкам ещё и целиком.Я пробовал разбитьSmiley«HOME» смещает курсор клавиатуры где находится курсор или кнопку «Отмена»Фишка из верхних, узнаете & .Cells(.Rows.CountLarge, 1).End(xlUp).Row).Value: Добрый день Пытливый!
проверял, зашел с можно узнать программно: Добрый день! Буду не более одного нас важно, чтобы

 столбцам из одной ячейки?
Зачем. эти данные на: mer1k, разбейте его

 в начало строки, клавиатуры, появится перенос (возле кнопки «Ввод»).: ой, забыла написать, (готовый макрос в .Parent.Sheets.Add , awsh,Спасибо большое за телефона. но все

 )) очень благодарен, если столбца. Это важные
эта статья былаустановите переключательBema

mer1k столбцы. Т.е. текст на столбцы с

 а «END» – строки и соответственно2 Из самой ячейки. как надо ))

 комментариях) 1, xlWorksheet End решение! Очень помогло равно спасибо!!Юрий М кто-нибудь посоветует как из них достаточно вам полезна. Просимс разделителями: Привет.: Прошу прощения. Просто разбивается в своей помощью «текст по в конец. начало новой. Перейдите на ячейкуVlad999Фишка With ‘ awsh в работе!) завтра посмотрю и: irakli78, зачем Вам можно разбить текст пустыми столбцами справа вас уделить паруи нажмите кнопку1. Формулой в предыдущем примере, же строке, только столбцам» и потомЕсли в тексте болееВ обычных редакторах текст и нажмите клавишу: Решение макросом в: Необходимо разбить текст Set wshResult =mts2050 обязательно сообщу! Еще объединённые ячейки? Настрадаетесь который в одной от выбранных столбец, секунд и сообщить,Далее2. Макросом пробовал. не получалось. на столбцы. Но транспонируйте. одной строки то делится на строки F2 или сделайте теме: Разбить текст

 в ячейке (с ActiveSheet n =

: Подскажите как сделать раз спасибо! потом. ячейке на несколько который будет предотвратить помогла ли она
.3. Текст по Сейчас сделал, и как потом сСергей

Разбить текст ячейки (строки), содержащий разделитель, на строки

 комбинации CTRL+HOME и нажатием клавиши Enter, по ней двойной ячейки (строки), содержащий разделителями «Alt+Enter») на

 UBound(arrDataIn, 1) lCnt что бы текстirakli78Все_просто строк с соблюдением перезапись по данные, вам, с помощью

Выберите столбцам. все хорошо. Огромное этих столбцов разместить: можно так CTRL+END перемещают курсор но в Excel щелчок мышкой. Тогда
разделитель, на строки отдельные строки = 0 For разбивался не в: Хотел бы узнать,: Человек по сути некоторых параметров.
которые распространяться данные кнопок внизу страницы.

разделителиalexleoix спасибо, оочень упростили
номера в строки,Юрий М в начало или данное действие выполняет в ячейке появится

 макросомGenbor i = 1

 одной ячейке, а а как данный просит написать макрос,

Пример прилагаю в любой смежных Для удобства такжедля своих данных.: 4. Power Query задачу.

Редактирование ячейки в Excel и разбиение текста на несколько строк

причем за раз?: Или так. в конец целого функцию подтверждения вода курсор клавиатуры, аЕсли ячейка содержит большой: Код =ПОДСТАВИТЬ(A1;»»;СИМВОЛ(10)) - To n arrTmp1

в нескольких и макрос использовать уже а вы наЗаранее благодарю. столбцах. При необходимости приводим ссылку на Например,БМВПо поводу цитирования.

Редактирование строки текста в ячейках

Можно конечно взятьmer1k

текста. данных и переход ее размер изменится текст или сложную это символ, на = Split(arrDataIn(i, 2) соотносился между ними. в другом файле? него взъелись.wowik7 вставьте количество пустые оригинал (на английскомзапятую: 5. Word ( А что тут и скопировать строку: Спасибо. Как этим
Примечание. Точно так же на следующую ячейку. на время редактирования. формулу, но с основании которого будет & «|», «|») Пример в файле.HugoЯ, к сожалению,: Скажите, а известно, столбцы, будет достаточно языке) .и и это не такого? Именно для в первый столбец пользоваться? Добавлять туда

редактируются: формулы, функции, Поэтому как написать После всех изменений ошибками, то нет переноситься строка (запятая, arrTmp2 = Split(arrDataIn(i,JayBhagavan

: Описка, исправьте в

Как сделать несколько строк в ячейке Excel?

не так силен сколько будет слов для хранения каждогоМожно разделить содержимого ячейкипробел шутка, копируем вставляем

этого кнопочка и
путем транспонирования. С свой текст? числа, даты и несколько строк в нажмите Enter или смысла удалять их точка с запятой, 3) & «|»,: mts2050, и Вам irakli78.xls (45.5 КБ) в макросах. Хотя в строке? Вот составные части распределенных

и распространение составные. Данные можно предварительно в word. копируем, создана. Всю жизнь одной строкой тоПопробовал свое ввести, логические значения. ячейке Excel жмите Tab или кликните вводить все данные точка и т.д.) «|») n2 =

здравия. F на G: сейчас все равно в приложенной книге данных. части нескольких смежных просмотреть в окне вставляем в excel цитирую удается, но вот но в строкиСтоит еще отметить, что Alt+Enter.

Режим редактирования

мышкой на любую заново. Рациональнее ихФишка WorksheetFunction.Max(UBound(arrTmp1, 1) -Кол-во разделителей вRange(«G» & lngI

стараюсь написать. 4 слова иВыделите ячейку, диапазон или
ячеек. Например, еслиОбразец разбора данных )Юрий М с несколькими никак.
текст он кидает простой режим редактированияОбратите внимание, что после другую ячейку. Для
просто отредактировать.: а как в 1, UBound(arrTmp2, 1) соседних по горизонтали & «:G» &Юрий М все разделены запятой

весь столбец, где лист содержит.vikttur

: Цитировать нужно не Они раскидывается на только с первой позволяет задавать тексту разделения одной строки отмены редактирования нажмите

Для редактирования значений в формуле обозначить знак — 1) ReDim ячейках всегда одинаковое? lngI + UBound(strA)).Merge: Кто «взъелся»? ))

и пробелом. Известно, содержатся текстовые значения,Полное имяНажмите кнопку

Разделение текста в ячейке, на строки.

: 6. Ручка + бездумно, а с столбцы. строки. А как свой стиль оформления: в ячейке на клавишу «Esc». Excel предусмотрен специальный «разделение», которое ставится Preserve arrTmp1(0 Tomts2050Пытливый

 Я только предупредил что разделение будет которые требуется разделить.столбца, можно разделить столбецДалее лист бумаги в

 умом. И толькоВот снова скинул

 с остальными быть? полужирный, курсив, подчеркнутый

 две и болееПримечание. При редактировании не режим. Он максимально при помощи клавиш
n2) ReDim Preserve: Да количество разделителей: Если структура таблицы про объединение )) таким же иНа вкладке на двух столбцов. клеточку то, что ДЕЙСТВИТЕЛЬНО табличку. Как например У меня этих и цвет. с помощью клавиш

 забывайте о кнопках прост, но гармонично Alt+Enter, т.е. перенос arrTmp2(0 To n2) совпадает. такая же (столбцы А макрос там слов обязательно 4Данные

 —Выберите значение в разделеБМВ нужно. Ну вот все это разделить, строк почти 12000,
Обратите внимание, что стиль Alt+Enter, то автоматически отмены / повтора объединил в себе на др.строку. как его For j =JayBhagavan и шапка расположены не очень и ?в группеимениФормат данных столбца: vikttur, — Почему зачем, например, в причем уместив только в каждой строке текста не отображается активируется опция «формат
действий на панели толь самые полезные записать в формулу? 0 To n2: В примере - так, как в

 сложный. Как вариант, метод

Работа с даннымииили используйте то, не в линейку? цитате в строки в бывает и по в строке формул, ячеек»-«выравнивание»-«перенос по словам».

 быстрого доступа. Или функции текстового редактора.Приведенную Вами формулу, lCnt = lCnt не совпадает:4 и
примере), а такжеwowik7 с использованием «Данные»нажмите кнопку

Фамилии которое Excel выберетИли от ExCELL»Прикрепленные файлы первом же столбце? одному номеру, а поэтому его удобнее Притом что сама
о комбинациях клавиш Ничего лишнего в я уже видела + 1 With 3. Учту. нет ячеек в

: Изменил своё первое —> «Работа сТекст по столбцамстолбцом. автоматически. отталкиваемся?primer 002.xlsm (17.68Юрий М
есть даже и
задавать, редактируя непосредственно эта функция не CTRL+Z и CTRL+Y. нем нет. здесь в других

 wshResult .Cells(lCnt, 1)JayBhagavan столбце D с сообщение. Прикрепил там данными» —> «Текст.

Советы:В полеvikttur КБ)»? Что это: Вариант.

Разделение текста по строкам

 по 20 номеров в самой ячейке. разбивает строку наРедактировать содержимое ячеек можно

 вопросах, но я = arrDataIn(i, 1)
: запускать когда целевой
одним словом -
файл по столбцам»

Следуйте инструкциям в

Поместить в: Именно. Без ячеек даёт? Да иmer1k через запятую.Читайте так же: как слова, а оптимизирует

В режиме редактирования, ячейки двумя способами: не знаю, как .Cells(lCnt, 2) =

 лист активный Option то переносите кодПытливыйВыделяете две нужныхСтолбцах мастера

Сведения об альтернативном способевыберите место на никак

Источник

Разделить текст Excel на несколько ячеек.

Смотрите также: — текст. блокКак обратно вернуть блоков текста. клавиш управления курсором объединил в себе: а как в
& «|», «|») что бы текст телефона… но все B6 и т.д. 3 или 2Т.е. фамилия будет помещена можно выделить некоторые (др. слова) былиЗдесь рассмотрим,kasan №2 и т.д. переносы строк вместоКаждый такой блок клавиатуры, как и
В режиме редактирования, ячейки толь самые полезные формуле обозначить знак arrTmp2 = Split(arrDataIn(i,
разбивался не в равно спасибо!!Подойдёт так, Ираклий? составляющих. В случае в столбец с строки, столбцы (например, написаны через запятую,как разделить текст в, Благодарю, то, чтоЧем вас обыкновенный этого символа?
уникален и содержит в других программах обладают функционалом простейшего функции текстового редактора. «разделение», которое ставится 3) & «|», одной ячейке, а) завтра посмотрю иЮрий М со строкой из отчествами. итоговые) выделить другим то мы бы ячейке Excel на надо!!! Можете расписать импорт не устраивает?Alex Dark несколько строк. Между Windows:
текстового редактора. Главное Ничего лишнего в при помощи клавиш «|») n2 = в нескольких и  обязательно сообщу! Еще: wowik7, количество переносов 4-х слов (например,Рассмотрим вариант разделения ФИО цветом, разделительной линией. указали разделителем «запятая». несколько ячеек. создание такого типау меня всё: В Excel - каждым блоком имеетсяКлавиша «DELETE» удаляет символ отличие – это
нем нет. Alt+Enter, т.е. перенос WorksheetFunction.Max(UBound(arrTmp1, 1) - соотносился между ними. раз спасибо! можно узнать программно Василий Петрович Лукьяненко по столбцам с
Подробнее, смотрите вВ этом окне, в
Например, предложение из макросов либо ссылку импортировалось без проблем Найти — n 3 пустых строки. справа, а «Backspace» разбиение текста на

Редактировать содержимое ячеек можно на др.строку……..как его 1, UBound(arrTmp2, 1) Пример в файле.irakli78 )) мл.) будет получен помощью формул. Перед статье «Разделительная линия разделе «Образец разбора
первой ячейки разнести на будущее для (по вашему описанию).Заменить на -ДержитеНужно перенести все слева. строки. двумя способами:
записать в формулу? — 1) ReDimJayBhagavan: Хотел бы узнать,Юрий М неудовлетворительный результат. использованием формул исходную строк в таблице

excel-office.ru

Разнесение в MS EXCEL текстовых строк по столбцам

данных» сразу видно, по словам в самост. выполнения. ЗаранееА… кажется догнал…

Alt и набираете это в excelCTRL+ «стрелка влево» переходВнимание!1 Из строки формул.Приведенную Вами формулу, Preserve arrTmp1(0 To: mts2050, и Вам а как данный

: irakli78, зачем Вамirakli78 строку нужно пропустить Excel» тут. какие столбцы у несколько других ячеек, благодаренА где гарантия на цифровой панели файл. Но так,

на начало слова,Чтобы разбить текст Щелкните по ячейке,

я уже видела n2) ReDim Preserve здравия. макрос использовать уже объединённые ячейки? Настрадаетесь: Добрый день! Буду

через функцию СЖПРОБЕЛЫ().Можно разделить ячейку
нас получатся. Нажимаем

ФИО, дату, т.д.kasan что ваш текстовой 0010

чтобы 1 строка
а CTRL+ «стрелка
на строки в в которой необходимо здесь в других arrTmp2(0 To n2)
Кол-во разделителей в в другом файле?
потом… очень благодарен, еслиОпределяем Имя (см. файл по диагонали и,

кнопку «Далее».Например, у нас: блок по объёмуЗаменить все в файле excel

вправо» – в
одной ячейке Excel

отредактировать данные. В вопросах, но я For j = соседних по горизонталиHugoВсе_просто

кто-нибудь посоветует как примера) в каждой частиЗдесь, в разделе есть список с77Роман777 поместится в ячейке?Не можете оригинальный содержала 1 текстовый конец слова. нужно нажать комбинацию строке формул отобразиться

excel2.ru

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

 не знаю, как 0 To n2 ячейках всегда одинаковое?: Описка, исправьте в: Человек по сути можно разбить текст=ЛЕВСИМВ(B5;ПОИСК(» «;B5;1)-1) написать текст. Читайте, «Поместить в:» указываем
фамилиями, именами в
, что значит расписать?

ps и я файл, нарисуйте свой блок.«HOME» смещает курсор клавиатуры клавиш Alt+Enter. Тогда содержимое, которое доступно обозначить мой разделитель lCnt = lCntmts2050 irakli78.xls (45.5 КБ) просит написать макрос, который в одной
Формула ищет первый пробел как это сделать, диапазон столбцов, в одном столбце. НамSub Roman777() Dim
бы это реализовал пример, наиболее приближенныйПодскажите пожалуйста, как в начало строки, вы сможете перейти для редактирования. Сделайте ))) + 1 With
: Да количество разделителей F на G: а вы на ячейке на несколько и все, что
 в статье «Как

 которые поместятся новые нужно написать фамилии arr As Variant макросомОн помещается, если

 к реальному. реализовать эту задачу? а «END» – на новую строку

 необходимые изменения, после…..надеюсь понятно написала wshResult .Cells(lCnt, 1) совпадает.Range(«G» & lngI
него взъелись. строк с соблюдением левее его относит разделить ячейку в данные.

 в одном столбце, ‘ массив типа вручную копировать.Так в ExcelЗаранее спасибо! в конец. в ячейке. В

 чего нажмите Enter )) = arrDataIn(i, 1)JayBhagavan

 & «:G» &Я, к сожалению, некоторых параметров… к имени. Excel» здесь.Внимание!

 а имена в Variant Dim DataCount,А как это или в LibreOfficeCyber FreakЕсли в тексте более

 том месте текста, или кликните поVlad999 .Cells(lCnt, 2) =: В примере - lngI + UBound(strA)).Merge не так силенПример прилагаюОпределяем Отчество:Удобнее работать в

Столбцы этого диапазона другом столбце. Например, i, j, count реализовать макросом? И надо сделать?

: Перенос строки заменить одной строки то где находится курсор кнопке «Ввод», которая
: СИМВОЛ(10) и есть arrTmp1(j) .Cells(lCnt, 3) не совпадает:4 и

Пытливый в макросах. ХотяЗаранее благодарю!!!=ЕСЛИ(ЕОШИБКА(ПОИСК(» «; таблице, где в должны быть пустыми, чтобы определить пол As Integer ‘ LibreOffice поддерживает макросы?НаCyber Freak на что-нибудь незначащее. комбинации CTRL+HOME и клавиатуры, появится перенос размещена в начале этот разделитель. = arrTmp2(j) End 3. Учту.: Если структура таблицы сейчас все равно
wowik7ПРАВСИМВ(B5; ДЛСТР(B5) - ячейках не видны иначе информация в людей в списке.

 переменные типа Integer сколько я знаю
: Если примерно, тоПеренести CTRL+END перемещают курсор

 строки и соответственно строки формул. Дляне совсем понял With ‘ wshResultJayBhagavan такая же (столбцы стараюсь написать.: Скажите, а известно,

 ПОИСК(» «; B5; нули. Как их них сотрется и
Подробнее об этом DataCount = Sheets(«Sheet1»).Cells(Rows.count, — ДА

 каждый текстовый блокЗаменить «незначащее» на в начало или

 начало новой. отмены изменений можно вопрос. Приложите файл Next j Next

: запускать когда целевой и шапка расположеныЮрий М сколько будет слов 1)); 1)) = убрать, скрыть, заменить, заменится на новую. читайте в статье «A»).End(xlUp).Row ‘ считаемНо либры у имеет 15 строк. пробел в конец целогоВ обычных редакторах текст нажать клавишу «Esc» пример, так есть, i End Sub лист активный Option так, как в: Кто «взъелся»? )) в строке? Вот ИСТИНА; «»; читайте в статье Если нет пустых «В Excel по количество строк в меня нет. А Между ними такжеCyber Freak текста. делится на строки или кнопку «Отмена» так хотелось быmts2050 Explicit Sub jjj_split() примере), а также Я только предупредил в приложенной книгеЛЕВСИМВ(ПРАВСИМВ(B5;ДЛСТР(B5) — ПОИСК(« «Как убрать нули столбцов, можно предварительно имени определить пол». таблице, которую надо файл вы выложить есть пустые строки,: Что-то не получаетсяПримечание. Точно так же нажатием клавиши Enter, (возле кнопки «Ввод»). получить сделанный вручную.: Спасибо.

 Dim awsh As нет ячеек в

 про объединение )) 4 слова и «; B5; 1)); в Excel». вставить столбцы. КакВыделяем ячейки, текст
разделять arr = не можете. но не больше так редактируются: формулы, функции,

planetaexcel.ru

Разбить текст ячейки (строки), содержащий разделитель, на строки

 но в Excel2 Из самой ячейки.ФишкаJack Famous Worksheet Dim wshResult

 столбце D с А макрос там все разделены запятойПОИСК(» «; ПРАВСИМВ(B5;Разнесем Фамилию, Имя и это сделать, смотрите в которых нужно

 Sheets(«sheet1»).Range(«A2:B» & DataCount)Поэтому ни чем одной.Cyber Freak числа, даты и данное действие выполняет Перейдите на ячейку: Ну как-то так
: irakli78, mts2050, доброго As Worksheet Dim одним словом - не очень и и пробелом. Известно, ДЛСТР(B5) — ПОИСК(« Отчество (ФИО), содержащихся
в статье «Как разделить или весь

 ‘ записываем в помочь не могуПриблизительно выглядит это
: Без файла только логические значения. функцию подтверждения вода и нажмите клавишу ))

 времени суток! Недавно arrDataIn Dim i то переносите код

 сложный… что разделение будет «; B5; 1));

 в одной ячейке, добавить строку, столбец столбец. массив таблицу For77Роман777 так:

CyberForum.ru

Редактирование ячейки в Excel и разбиение текста на несколько строк

рассужденияСтоит еще отметить, что данных и переход F2 или сделайтеФишка мне помогли с As Long Dim в файл и

wowik7 таким же и 1) — 1)) по разным столбцам. в Excel» тут.Заходим на закладке «Данные» i = 1: Нужно разделить excelЗатем идет 3

Редактирование строки текста в ячейках

Cyber Freak простой режим редактирования

на следующую ячейку. по ней двойной: ой, забыла написать, такой же проблемой. n As Long просто запускайте макрос.: Изменил своё первое слов обязательно 4Формула определяет, есть лиИнструмент Текст-по-столбцам (вкладкаМожно указать формат в раздел «Работа To UBound(arr, 1) таблицу по строчно, пустых строки и: Файл к сожалению позволяет задавать тексту
Поэтому как написать щелчок мышкой. Тогда как надо ))Универсальное решение. Dim arrTmp1$(), arrTmp2$() Или просто - сообщение. Прикрепил там ? Отчество, и еслиДанные Ячеек столбцов. Например, с данными» и ‘ цикл по пример дальше следующий похожий не могу предоставить. свой стиль оформления:

несколько строк в в ячейке появитсяVlad999А как заполнить Dim n2 As откройте файл моего файл

Как вариант, метод

Как сделать несколько строк в ячейке Excel?

находит, то отображает, группа если вы делите выбираем функцию «Текст всем строкам массиваСтолбец1 Столбец2

текстовый блок, состоящий
В общем, как полужирный, курсив, подчеркнутый ячейке Excel жмите курсор клавиатуры, а: Решение макросом в пустые ячейки значениями Long Dim j примера и свойПытливый с использованием «Данные» его. Фактически онаРабота с данными столбец на дни

по столбцам». В For j =Артикул Количество из такого же то разделил каждый и цвет. Alt+Enter. ее размер изменится теме: Разбить текст из верхних, узнаете As Long Dim — и запускайте

: В файле на —> «Работа с определяет наличие второго, пункт и месяцы, год, появившемся окне «Мастер 1 To arr(i,ААААА 3 количества строк. блок текста наОбратите внимание, что стильОбратите внимание, что после на время редактирования.

Режим редактирования

ячейки (строки), содержащий (готовый макрос в lCnt As Long макрос через Alt+F8/ копии листа1 давите данными» —> «Текст

пробела.Текст-по-столбцам то можно указать
текстов», в строке 2) ‘ циклНужно перевести вЖелательно в LibreOffice. строки, но теперь
текста не отображается разделения одной строки После всех изменений разделитель, на строки
комментариях) Set awsh = Макрос-то делался под кнопку с побудительной по столбцам»Определяем Фамилию:) используется для разнесения

«Формат данных столбца» «Формат исходных данных» по количеству каждого формат

Alex Dark у меня все в строке формул, в ячейке на нажмите Enter или макросом

Фишка ActiveSheet With awsh данные из примера. надписью и проверяйтеВыделяете две нужных=ПРАВСИМВ(B5;ДЛСТР(B5)-ДЛСТР(C5)-ДЛСТР(D5)-ЕСЛИ(D5=»»;1;2))

элементов текстовой строки — «дата». указываем – «С артикула Range(«D» &

exceltable.com

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

ААААА 1: А должно стать
переносы строк заменены поэтому его удобнее две и более Tab или кликните
Если ячейка содержит большой: Необходимо разбить текст arrDataIn = .Range(«A2:C»А если там результат.
ячейки, кликаетеФормула основывается на результатах по различным столбцам.Нажимаем кнопку «Готово». разделителями». Нажимаем кнопку Sheets(«Sheet1»).Cells(Rows.count, «D»).End(xlUp).Row +ААААА 1
как? на лишний ненужный
задавать, редактируя непосредственно

 с помощью клавиш мышкой на любую текст или сложную
в ячейке (с
& .Cells(.Rows.CountLarge, 1).End(xlUp).Row).Value отличия какие -

Voditel_CDROMaТекст по столбцам вычисления двух предыдущих

Однако, если исходные текстовые Получилось так. «Далее».

 1) = arr(i,ААААА 1Должно стать так,
символ. в самой ячейке. Alt+Enter, то автоматически другую ячейку. Для формулу, но с разделителями «Alt+Enter») на .Parent.Sheets.Add , awsh, надо смотреть и
: Как вариант си указываете в формул и выводит строки имеют разныйТак можно разделить текстЗдесь указываем в строке 1) ‘ вkasan чтобы все эти
В LibreOffice 4.4Читайте так же: как активируется опция «формат

 отмены редактирования нажмите ошибками, то нет отдельные строки
1, xlWorksheet End макрос корректировать, быть помощью функции SubStr(ссылка качестве разделителей Запятую
всю исходную строку
формат, например, если из одной ячейки «Символом – разделителем ячейку записываем артикул
: Вариант с макросом. данные поместились в делаю замену на

 перевести число и ячеек»-«выравнивание»-«перенос по словам». клавишу «Esc». смысла удалять ихGenbor With ‘ awsh может. на строку, номер
и пробел. Ячейку за исключением Имени
в некоторых ФИО на большее количество является» — «пробел». Range(«E» & Sheets(«Sheet1»).Cells(Rows.count,AlexM excel файл, где
«n», используя регулярные

 сумму прописью в Притом что самаПримечание. При редактировании не

вводить все данные: Код =ПОДСТАВИТЬ(A1;»»;СИМВОЛ(10)) - Set wshResult =AVKL фрагмента, разделитель). См. вывода я указал и Отчества. отсутствует отчество, то столбцов. Например, здесь Поставили «пробел», потому «E»).End(xlUp).Row + 1): Вариант формулой массива
каждый текстовой блок выражения, но ничего
Excel. эта функция не забывайте о кнопках
заново. Рациональнее их
это символ, на ActiveSheet n =: Добрый день Пытливый! в приложении.
B6 (Лист2)Этот подход не является у инструмента Текст-по-столбцам могут разделили дату отдельно
что в нашем = 1 ‘ Код =ЕСЛИ(СУММ(B$2:B$99) будет в одной не выходит. Вернее,
Cyber Freak разбивает строку на отмены / повтора просто отредактировать.
основании которого будет UBound(arrDataIn, 1) lCnt

CyberForum.ru

Разделение по строкам в Excel

Спасибо большое заirakli78А в итоговой универсальным для разделения
сложности с корректным
по столбцам –
списке имя и
в ячейку записываемAlexM
ячейке, построчно. То
делается не замена
: Здравствуйте!

 слова, а оптимизирует действий на панели

Для редактирования значений в переноситься строка (запятая, = 0 For

 решение! Очень помогло: Просто не хватает таблице я записал

 строк по столбцам. отнесением значений в число, месяц, год. фамилия написаны через 1 Next ‘: Еще много вариантов есть, ячейка А1 на перенос строки,Есть файл в ее отображение.

 быстрого доступа. Или Excel предусмотрен специальный точка с запятой, i = 1
в работе! слов благодарности!! Честно в ячейках ссылки Он работает, если столбцы. Можно наблюдатьДля большей наглядности пробел. Если бы Next i ‘ решения — текст. блок а на обычные формате txt, вВ режиме редактирования работают о комбинациях клавиш режим. Он максимально точка и т.д.) To n arrTmp1mts2050 говоря пока не на ти самые строка содержит только такую картину: в таблице Excel имя и фамилия End Sub77Роман777 №1, ячейка А2 символы «n». котором очень много все стандартные комбинации CTRL+Z и CTRL+Y. прост, но гармоничноФишка = Split(arrDataIn(i, 2): Подскажите как сделать

CyberForum.ru

проверял, зашел с

Источник

Wh1Te

Пользователь

Сообщений: 4
Регистрация: 03.09.2015

Через разные формулы, получаю строку с данными текст и числа. Всего около 5-6 ячеек занято, мне нужно взять данные из всей строки и сохранить в текстовом файле, но так чтобы в текстовом файле данные разделялись точками, обычное разделение сохраняет через пробелы.

И вторая строчка, там большое количество пробелов между данными. Первую строку можно сделать через «Сцепить», вторую аналогично только пробелов добавить ?

Файл Excel и, образец файла Txt который нужен прикрепил к сообщению.

Изменено: Wh1Te — 03.09.2015 15:13:37

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	Wh1Te, и Вам здравствовать. В файле экселя только одна строка. <#0> Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

TSN

Пользователь

Сообщений: 217
Регистрация: 07.05.2014

04.09.2015 09:10:02

Пример записи в файл тхт

Код

Sub WriteTXT()
Dim oRange As Range, sTemp As String, vl
Dim FileTxt As String, F As Integer
'''Чтение данных из книги Ексель, из диаппазона "A3:F3"
With ThisWorkbook
  Set oRange = .Sheets("Лист1").Range("A3:F3")
    For Each vl In oRange
      sTemp = sTemp & vl.Value & "."
    Next
    sTemp = Left(sTemp, Len(sTemp) - 1)
End With
''' Формирование наименования файла и Запись данных в текстовый файл
''' Это самы простой способ записи.
FileTxt = "Данные Ексель " & Format(Now, "dd-mm-yy-hh-mm-ss") & ".txt"
F = FreeFile
Open ThisWorkbook.Path & Application.PathSeparator & FileTxt For Output As #F
Print #F, sTemp
Close #F
MsgBox "Файл сформирован: " & ThisWorkbook.Path & Application.PathSeparator & FileTxt, 64, "Excel"
End Sub

Цитата
JayBhagavan написал: В файле экселя только одна строка.

Поэтому как получить все данные из файла думайте самостоятельно

Прикрепленные файлы

Файл.xlsm (17.3 КБ)

Изменено: TSN — 04.09.2015 09:12:01

Whitee Пользователь Сообщений: 4 Регистрация: 03.09.2015	Большое спасибо за написанный скрипт. Очень облегчает задачу вывода в txt. Чуть чуть донастрою уже сам) Изменено: Whitee — 08.09.2015 23:07:52

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	Whitee, и вот зачем Вы процитировали всё целиком? Кнопка цитирования не для ответа. Исправьте свой #4.

Whitee

Пользователь

Сообщений: 4
Регистрация: 03.09.2015

Столкнулся с одним недостатком. В текстовом файле все строки идут друг за другом одной строчкой. А нужно чтобы в txt было так же как и в Excele осуществлялся перенос на следующую строчку

Текстовый файл — в каком виде нужно получить данные. (пробел, запятая, точка не важно. Потом сам изменю).
Главное, чтобы вы подсказали, что и куда надо дописать чтобы был перенос строки. Диапазон строк 300-500 (в итоге диапазон оставлю один постоянный)

ikki

Пользователь

Сообщений: 9709
Регистрация: 22.12.2012

08.09.2015 23:46:45

Цитата
Whitee написал: Столкнулся с одним недостатком.

Цитата
JayBhagavan написал: В файле экселя только одна строка.

Цитата
из Правил форума: 2.3. Приложите файл(ы) с примером (общим весом не более 100 Кб) в реальной структуре

Вы всегда стремитесь устранять свои ошибки за чужой счёт?

Цитата
Whitee написал: Чуть чуть донастрою уже сам)

перенос на следующую строчку — это как раз «чуть-чуть»

фрилансер Excel, VBA — контакты в профиле
«Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

kalbasiatka

Пользователь

Сообщений: 684
Регистрация: 22.12.2012

09.09.2015 06:51:08

Код

Sub WriteTXT_V2()
    Dim a(), b(), c()
    Dim i&, j&
'--------------------
    a = Sheets("Лист1").UsedRange.Value
    ReDim b(1 To UBound(a) - 2)
    For i = 3 To UBound(a)
        ReDim c(1 To UBound(a, 2))
        For j = 1 To UBound(c)
            c(j) = a(i, j)
        Next
        b(i - 2) = Join(c, vbTab)
    Next
    With CreateObject("ADODB.Stream")
        .Type = 2: .Charset = "utf-8"
        .Open
        .WriteText Join(b, vbCrLf)
        .SaveToFile ThisWorkbook.Path & "как надо.txt", 2
        .Close
    End With
    Beep
End Sub

TSN

Пользователь

Сообщений: 217
Регистрация: 07.05.2014

09.09.2015 08:45:57

Цитата
Whitee написал: нужно чтобы в txt было так же как и в Excele осуществлялся перенос на следующую строчку

Для разнообразия вариантов еще один.

Код

Sub WriteTXT1()
Dim arr, sTemp As String, x As Long, n As Long, F As Integer
Dim FileTxt As String, FullFileName As String
  '''Чтение данных из книги Ексель, из полей "A:F" - динамически
  With ThisWorkbook.Sheets("Лист1")
    arr = .Range(.Cells(3, 1), .Cells(Rows.Count, 7).End(xlUp)).Value
      For x = 1 To UBound(arr)
        For n = 1 To 7: sTemp = sTemp & arr(x, n) & ".": Next n
        sTemp = Left(sTemp, Len(sTemp) - 1) & vbCrLf
      Next x
  End With
  Erase arr
  ''' Формирование наименования файла и Запись данных в текстовый файл
  FileTxt = "Данные Ексель " & Format(Now, "dd-mm-yy-hh-mm-ss") & ".sdr"
  FullFileName = ThisWorkbook.Path & Application.PathSeparator & FileTxt
  ''' Стандартный способ записи текстового файла в VBA.
  F = FreeFile
  Open FullFileName For Output As #F: Print #F, sTemp: Close #F
MsgBox "Файл сформирован: " & FullFileName, 64, "Excel"
End Sub

Изменено: TSN — 09.09.2015 08:48:08

Whitee

Пользователь

Сообщений: 4
Регистрация: 03.09.2015

#10

09.09.2015 14:14:28

Цитата
Для разнообразия вариантов еще один.

Работает превосходно, спасибо

jeka-irbis Пользователь Сообщений: 137 Регистрация: 05.09.2015	#11 17.09.2019 22:27:02 вопрос решен самостоятельно, всем спасибо за «помощь»)) Изменено: jeka-irbis — 19.09.2019 22:31:41

Источник

Обработка таблиц
Текстовые файлы
Книги Excel
Перевод и кодировка
текстовые строки
Работа с файлами
Разное

Макрос предназначен для создания текстовых файлов в кодировке UTF-8.

Исходными данными является таблица Excel из 12 столбцов.

Сначала, макрос создаёт папку для будущих текстовых файлов.
Папка создаётся в том же каталоге, где расположена книга Excel.

Далее, для каждой строки таблицы, макрос формирует подпапку,
используя в качестве её названия текст из 7-го столбца таблицы.

И потом, когда папка для файла создана, макрос создаёт текстовый файл с содержимым из 10 столбца таблицы,
и сохраняет его под именем, взятым из второго столбца той же таблицы Excel.
После создания файла, у него меняется кодировка на UTF-8 (изначально, при создании, файлы имеют кодировку Unicode)

По окончании работы макроса, открывается папка, содержащая созданные текстовые файлы.

Пример макроса смотрите в прикреплённом файле.

Код макроса, создающего папки, подпапки, и текстовые файлы по данным из таблицы Excel:

Sub СозданиеТекстовыхФайлов()
    On Error Resume Next
    Dim cell As Range, ra As Range
    Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp)).Resize(, 11)
    arr = ra.Value    ' считываем данные в массив

    Set FSO = CreateObject("scripting.filesystemobject")
    ' создаём главную папку
    BaseFolder$ = ThisWorkbook.Path & "Товар по группам": MkDir BaseFolder$
 
    ' перебираем все строки
    For i = LBound(arr) To UBound(arr)
        ' создаём папку для очередной строки (если папки ещё нет)
        Folder$ = BaseFolder$ & arr(i, 7) & ""    ' имя папки - в столбце G
        MkDir Folder$
 
        ' формируем имя создаваемого текстового файла
        Filename$ = Folder$ & Trim(arr(i, 2)) & ".txt"
 
        ' создаём файл в кодировке Unicode
        Set ts = FSO.CreateTextFile(Filename$, True, True)
        ts.Write Trim(arr(i, 10))    ' данные в файл - из ячейки 10-го столбца
        ts.Close
 
        ' если текстовый файл нужен в другой кодировке
        ChangeFileCharset Filename$, "utf-8"
    Next i
 
    Set ts = Nothing: Set FSO = Nothing
    MsgBox "Файлы созданы, и помещены в папку" & vbNewLine & BaseFolder$, vbInformation, "Готово"
 
    ' открываем папку с файлами
    CreateObject("wscript.shell").Run "explorer.exe /e, """ & BaseFolder$ & """"
End Sub

66672 просмотра

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.

Источник

Как разделить текст в ячейке Excel?

Добрый день уважаемый читатель!

В статье я хочу рассмотреть вопрос о том, как и какими способами, возможно, разделить текст в ячейке, который оказался склеен! Если вы часто работаете с импортированными данными в Excel, то периодически встречаете такие проблемы как выгруженные точки вместо запятых, неправильный формат данных, слепленные слова или значения и многое другое. На этот случай Excel предоставляет несколько возможностей по нормализации данных и у каждого из них есть свои плюсы и минуса.

Разобрать слитый текст на необходимые составляющие возможно произвести с помощью:

Мастер разбора текстов

Рассмотрим самый простой способ разделить текст в ячейке, не по сути, а по исполнению. Для примера, очень наглядно это можно продемонстрировать на ФИО в одной ячейке, которые необходимо разделить на отдельные столбики для удобства сортировки и фильтрации.

Для выполнения задачи вызываем диалоговое окно «Мастер текстов (разбор)» и в 3 шага разделяем текст:

Для начала нужно выделить данные, которые необходимо разделить, следующим шагом на вкладке «Данные» в разделе «Работа с данными» нажимаете иконку «Текст по столбцам» и в вызванном диалоговом окне мастера указываем формат рабочего текста. Выбираем 2 вида форматов:

С разделителями – это когда существует текст или символ, который условно будет отделять будущее содержимое отдельных ячеек;
Фиксированной ширины – это когда при помощи пробелов в тексте имитируется столбики одинаковой ширины.

Вторым шагом, в нашем примере, указываем символ, выполняющий роль разделителя. В случаях, когда в тексте идут подряд пару разделителей, несколько пробелов, к примеру, то установка флажка для пункта «Считать последовательные разделители одним» укажет для Excel принимать их за один разделитель. Дополнительное условие «Ограничитель строк» поможет указать, что текстовые значения, содержащиеся в кавычках не делить (к примеру, название фирмы «Рудольф, Петер и Саймон»);
Последним шагом, для уже разделённых столбиков, нужно указать в диалоговом окне мастера, предварительно выделив их, выбрать необходимый формат получаемых данных:

Общий – не проводит изменения данных, оставляя их в первоначальном виде, будет оптимальным выбором в большинстве случаев;
Текстовый – данный формат, в основном, необходим для столбиков с числовыми значениями, которые программа в обязательном порядке должна интерпретировать как текст. (К примеру, это числа с разделителем по тысяче или номер пластиковой карточки);
Дата – этот формат используется для столбиков с датами, кстати, формат самой даты можно выбрать в выпадающем списке.

В случае, когда будете использовать символы, которые не похожи на стандартные, назначенные в региональных настройках, можете использовать кнопку «Подробнее» для правильного их распознавания.

Рассоединяем текст с помощью формул

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

И если с первыми двумя словами понятно, что и как разделять, то разделителя для последнего слова нет, а это значит что нужно указать в качестве аргумента условно большое количество символов, как аргумент «число_знаков» для функции ПСТР, например, 100, 200 или больше.

А теперь поэтапно рассмотрим формирование формулы для разделения текста в ячейке:

Во-первых, нам необходимо найти два пробела, которые разделяют наши слова, для поиска первого пробела нужна формула: =ПОИСК(» «;B2;1), а для второго подойдет: =ПОИСК(» «;B2;C2+1);
Во-вторых, определяем, сколько символов нужно выделить в строке. Поскольку позиции разделителя мы уже определили, то символов для разделения у нас будет на один меньше. Значит, будем использовать функцию ПСТР для изъятия слов, с ячейки используя как аргумент «количество_знаков» результат работы предыдущей формулы. Для определения первого слова (Фамилии) нужна формула: =ПСТР(B2;1;ПОИСК(» «;B2;1)), для определения второго значения (Имя): =ПСТР(B2;ПОИСК(» «;B2;1)+1;ПОИСК(» «;B2;ПОИСК(» «;B2;1)+1) -ПОИСК(» «;B2;1)), а теперь определим последнее значение (Отчество): =ПСТР(B2;ПОИСК(» «;B2;ПОИСК(» «;B2;1)+1)+1;100).

В результате мы разделили ФИО на три слова, что позволит с ними эффективно работать.

Если же значение в ячейке будете делить на две части, то ищете только один пробел (или иной разделитель), а вот чтобы разделить более 4 слов, в формулу добавьте поиск необходимых разделителей.

Выдергиваем слова с помощью макросов VBA

Рассмотрим два способа разделить текст в ячейке:

Выдергиваем отдельные слова по разделителю;
Делим текст без пробелов.

Способ №1.

Поскольку вас интересует автоматическое деление текста, значит надо написать хорошую функцию на VBA и внедрить ее в рабочую книгу. Для начала переходим на вкладку «Разработчик» и выбираем «Visual Basic» или вызываем эту возможность с помощью горячего сочетания клавиш Alt+F11. (детальнее в статье «Как создать макрос в Excel»).

Создаем новый модуль в меню «Insert» наживаем пункт «Module» и переносим в него нижеприведенный код:

Разбить по строкам/столбцам

Данная функция является частью надстройки MulTEx

Описание, установка, удаление и обновление
Полный список команд и функций MulTEx
Часто задаваемые вопросы по MulTEx
Скачать MulTEx

Вызов команды:
MulTEx -группа Ячейки/Диапазоны —Диапазоны —Разбить по строкам/столбцам

Эта команда разбивает данные во всех выделенных ячейках на части, используя в качестве разделителя указанные символ/символы. Главная особенность — в отличие от стандартной команды Excel «Разбить по столбцам», данная команда заносит результат разбиения данных в строки либо столбцы в одну строку/столбец, а не каждую часть в свой столбец. К тому же в стандартной команде Excel нет возможности указать несколько символов — только один.

Диапазон значений — указывается диапазон ячеек, данные которых необходимо разбить. Может быть как одним столбцом/строкой, так и диапазоном, состоящим из нескольких строк и нескольких столбцов.
Разделитель — указывается символ (или группа символов), который будет применен в качестве разделителя. Если разделитель не указан, то появится сообщение, информирующее об этом. В сообщении будет предложено использовать разделитель по умолчанию (Пробел). В случае отказа Вы сможете указать необходимый разделитель. Данные, внесенные ранее не будут утеряны.

Специальный

Разделитель

ДА(YES) — в поле Разделитель будет добавлен указанный специальный символ. Указанные ранее символы не будут удалены.

НЕТ(NO) — поле Разделитель будет очищено и в него будет помещен только выбранный специальный символ.

Поместить результат:

Разделитель результата:
Доступно только если в качестве вывода результата указана одна ячейка. По умолчанию разделителем является перенос на строки. В качестве разделителя можно указать любой символ или группу символов.

Перенос на строки — каждое новое результирующее значение в ячейке будет записано с новой строки:
Произвольный — любой символ, буква, цифра или группа символов(словосочетания, цифры и т.п.).

Транспонировать — если Диапазон значений представляет собой столбец, то данные после обработки будут помещены в одну строку. Если Диапазон значений — строка, то данные будут помещены в столбец. Недоступно при выводе результата в одну ячейку.

Финансы в Excel

Текст по столбцам и строкам

Подробности Создано 03 Май 2012

Большинство опытных пользователей Excel умеют пользоваться встроенным интерфейсным средством для разбивки текстовой строки на составляющие с использованием символа разделителя. В некоторых ситуациях может оказаться удобнее разобрать текст не с помощью интерфейса, а с использованием формул. Как ни странно, но Excel не имеет встроенной стандартной функции рабочего листа для проведения таких действий. Это тем более непонятно, так как VBA поддерживает стандартную функцию Split, облегчающую решение подобных задач.

В примере созданы 2 сложные формулы для разбивки текста по столбцам и строкам. Их также можно использовать для выборки текстовой составляющей по порядковому номеру.

Напомним, что интерфейсное средство «Текст по столбцам» доступно через меню и ленту Excel Данные Текст по столбцам.

В файле-примере показано два типа формулы для разделения текста на составляющие:

текст по столбцам (диапазон B5:K6)
текст по строкам (диапазон A10:B19)

В качестве разделителя текста используется символ «,» (запятая). В служебных целях задействованы еще два символа » » (математические знаки «меньше» и «больше»). Эти символы не могут находится в исходном тексте, в противном случае формула будет работать неверно. И разделитель, и служебные символы можно заменить на любые другие, главное, чтобы они не могли быть задействованы в исходном тексте. Для замены исправьте константы во всех местах формулы.

Формула в ячейке B5 и далее по столбцам обрабатывает исходный текст из ячейки A5:

Формула в ячейке A10 и далее по строкам обрабатывает исходный текст из ячейки A9:

Формулы ссылаются только на исходный текст и не требуют наличия других предварительно вычисленных составляющих. Варианты отличаются только автоматическим определением порядкового номера текстовой составляющей, в первом случае — это подформула для вычисления номера от количества столбцов: COLUMNS($B:B); во втором — от количества строк: ROWS($10:10). При копировании диапазон столбцов и строк автоматически расширяется, вычисляя таким образом нужное значение. Вместо этой подформулы можно задать константу или переменную, определяющую требуемый номер. Из результатирующих текстовых значений убираются лишние пробелы при помощи функции TRIM().

Наверняка можно сделать формулу покороче, используя другие методы поиска. Это просто наш вариант — оригинальный, нигде не подсмотренный 😉

Как разделить текст в ячейке Excel?

Добрый день уважаемый читатель!

Разобрать слитый текст на необходимые составляющие возможно произвести с помощью:

Мастер разбора текстов

Для выполнения задачи вызываем диалоговое окно «Мастер текстов (разбор)» и в 3 шага разделяем текст:

Для начала нужно выделить данные, которые необходимо разделить, следующим шагом на вкладке «Данные» в разделе «Работа с данными» нажимаете иконку «Текст по столбцам» и в вызванном диалоговом окне мастера указываем формат рабочего текста. Выбираем 2 вида форматов:

С разделителями – это когда существует текст или символ, который условно будет отделять будущее содержимое отдельных ячеек;
Фиксированной ширины – это когда при помощи пробелов в тексте имитируется столбики одинаковой ширины.

Вторым шагом, в нашем примере, указываем символ, выполняющий роль разделителя. В случаях, когда в тексте идут подряд пару разделителей, несколько пробелов, к примеру, то установка флажка для пункта «Считать последовательные разделители одним» укажет для Excel принимать их за один разделитель. Дополнительное условие «Ограничитель строк» поможет указать, что текстовые значения, содержащиеся в кавычках не делить (к примеру, название фирмы «Рудольф, Петер и Саймон»);
Последним шагом, для уже разделённых столбиков, нужно указать в диалоговом окне мастера, предварительно выделив их, выбрать необходимый формат получаемых данных:

Общий – не проводит изменения данных, оставляя их в первоначальном виде, будет оптимальным выбором в большинстве случаев;
Текстовый – данный формат, в основном, необходим для столбиков с числовыми значениями, которые программа в обязательном порядке должна интерпретировать как текст. (К примеру, это числа с разделителем по тысяче или номер пластиковой карточки);
Дата – этот формат используется для столбиков с датами, кстати, формат самой даты можно выбрать в выпадающем списке.

Рассоединяем текст с помощью формул

А теперь поэтапно рассмотрим формирование формулы для разделения текста в ячейке:

Во-первых, нам необходимо найти два пробела, которые разделяют наши слова, для поиска первого пробела нужна формула: =ПОИСК(» «;B2;1), а для второго подойдет: =ПОИСК(» «;B2;C2+1);
Во-вторых, определяем, сколько символов нужно выделить в строке. Поскольку позиции разделителя мы уже определили, то символов для разделения у нас будет на один меньше. Значит, будем использовать функцию ПСТР для изъятия слов, с ячейки используя как аргумент «количество_знаков» результат работы предыдущей формулы. Для определения первого слова (Фамилии) нужна формула: =ПСТР(B2;1;ПОИСК(» «;B2;1)), для определения второго значения (Имя): =ПСТР(B2;ПОИСК(» «;B2;1)+1;ПОИСК(» «;B2;ПОИСК(» «;B2;1)+1) -ПОИСК(» «;B2;1)), а теперь определим последнее значение (Отчество): =ПСТР(B2;ПОИСК(» «;B2;ПОИСК(» «;B2;1)+1)+1;100).

В результате мы разделили ФИО на три слова, что позволит с ними эффективно работать.

Выдергиваем слова с помощью макросов VBA

Рассмотрим два способа разделить текст в ячейке:

Выдергиваем отдельные слова по разделителю;
Делим текст без пробелов.

Способ №1.

Создаем новый модуль в меню «Insert» наживаем пункт «Module» и переносим в него нижеприведенный код:

Разделить текст по столбцам в Excel

Приложение Excel позволяет разбивать текст в ячейках столбца на несколько подстрок и располагать их в отдельных колонках. При этом для разбивки используется специальный разделитель, который выбирается пользователем для каждого конкретного случая.

Для примера рассмотрим данные CSV файла. Каждая подстрока в нем разделена символом «точка с запятой» и помещена в двойные кавычки. Вставьте их в любое место Вашей рабочей книги:

Перед разбивкой данных требуется выделить нужный диапазон, а затем кликнуть по пиктограмме «Текст по столбцам» в области «Работа с данными» на ленте вкладки «Данные».

На экране будет отображено окно мастера распределения текста:

Весь процесс состоит из трех шагов.

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

Выберите пункт «С разделителями» и нажмите кнопку «Далее».

Следующим действием выбирается символ-разделитель. Им может быть любой из знаков, включая буквы и цифры.

Обратите внимание на то, что если разделители идут подряд, то каждый из них образует новый столбец, т.е. 2 таких символа создают 1 пустой столбец, 3 – 2 и т.д. Чтобы избавиться от этого часто нужного действия достаточно поставить галочку на поле «Считать последовательные разделители одним».

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

Имейте в виду то, что символы-разделители и ограничители удаляются из содержимого разделенных данных.

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

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

Из возможных настроек предоставлено только несколько форматов (типов данных), а поместить распределенный текст можно только на текущем листе.

У Вас недостаточно прав для комментирования.

Источник

Текст по столбцам и строкам

Подробности: Создано 03 Май 2012

В файле-примере показано два типа формулы для разделения текста на составляющие:

текст по столбцам (диапазон B5:K6)
текст по строкам (диапазон A10:B19)

В качестве разделителя текста используется символ «,» (запятая). В служебных целях задействованы еще два символа «<» и «>» (математические знаки «меньше» и «больше»). Эти символы не могут находится в исходном тексте, в противном случае формула будет работать неверно. И разделитель, и служебные символы можно заменить на любые другие, главное, чтобы они не могли быть задействованы в исходном тексте. Для замены исправьте константы во всех местах формулы.

Формула в ячейке B5 и далее по столбцам обрабатывает исходный текст из ячейки A5:

 
=TRIM(IF(ISERR(FIND(">";SUBSTITUTE(SUBSTITUTE(","&$A5&",";",";"<";COLUMNS($B:B));",";">";COLUMNS($B:B))));"";
    MID(SUBSTITUTE(SUBSTITUTE(","&$A5&",";",";"<";COLUMNS($B:B));",";">";COLUMNS($B:B));
      FIND("<";SUBSTITUTE(SUBSTITUTE(","&$A5&",";",";"<";COLUMNS($B:B));",";">";COLUMNS($B:B)))+1;
      FIND(">";SUBSTITUTE(SUBSTITUTE(","&$A5&",";",";"<";COLUMNS($B:B));",";">";COLUMNS($B:B)))-FIND("<";SUBSTITUTE(SUBSTITUTE(","&$A5&",";",";"<";COLUMNS($B:B));",";">";COLUMNS($B:B)))-1)))

Формула в ячейке A10 и далее по строкам обрабатывает исходный текст из ячейки A9:

 
=TRIM(IF(ISERR(FIND(">";SUBSTITUTE(SUBSTITUTE(","&A$9&",";",";"<";ROWS($10:10));",";">";ROWS($10:10))));"";
    MID(SUBSTITUTE(SUBSTITUTE(","&A$9&",";",";"<";ROWS($10:10));",";">";ROWS($10:10));
      FIND("<";SUBSTITUTE(SUBSTITUTE(","&A$9&",";",";"<";ROWS($10:10));",";">";ROWS($10:10)))+1;
      FIND(">";SUBSTITUTE(SUBSTITUTE(","&A$9&",";",";"<";ROWS($10:10));",";">";ROWS($10:10)))-FIND("<";SUBSTITUTE(SUBSTITUTE(","&A$9&",";",";"<";ROWS($10:10));",";">";ROWS($10:10)))-1)))

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

Смотри также

» Извлечение чисел из набора строк

Небольшой пример по использованию операции замены текста, который часто встречается на практике. Требуется вырезать из набора…

» Объединение строк

У продвинутых пользователей Excel очень популярен вопрос о возможности объединения диапазона ячеек, содержащих текст, в одну строку при…

» Объединение строк

Функция efSumText возвращает объединенный текст с указанным разделителем.

Источник

Сохранить каждую строку как отдельный файл

Автор scrackan, 02.02.2012, 23:07

« назад — далее »

Имеется экселевская таблица. Прикладываю образец (lines-file.xls).

Собственно, в файл можно не заглядывать — табличка там очень простая:
Ляляля1   Ляляля2   Ляляля3   Ляляля4
Хрюхрю5   Хрюхрю6   Хрюхрю7   Хрюхрю8
Кококо9   Кококо10   Кококо11   Кококо12

Требуется каждую строку сохранить как отдельный текстовый файл с каждой ячейкой на отдельной строке.

Т.е. конкретно в этом случае должно получиться 3 файла:

Ляляля1 Ляляля2 Ляляля3 Ляляля4

Хрюхрю5 Хрюхрю6 Хрюхрю7 Хрюхрю8

Кококо9 Кококо10 Кококо11 Кококо12

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

Имена файлов не принципиальны, но лучше, конечно, чтобы они подчинялись какой-нибудь системе (порядковые номера, например).

Пробуйте. Транспонирование не используется. Файлы создаются в той же папке.

Цитата: exceleved от 03.02.2012, 10:28
Пробуйте. Транспонирование не используется. Файлы создаются в той же папке.

А можно ли модифицировать макрос? Чтобы текстовые файлы сохранялись не в кодировке ANSI, а в UTF-8.

Или надо прибегать к сторонней софтине, которая пакетно преобразует все файлы в другую кодировку?

exceleved, спасибо большое!

Цитата: exceleved от 03.02.2012, 12:31
Пробуйте.

Обнаружил небольшой баг. Если строка таблицы не содержит ни одного кириллического символа, соответствующий файл сохранится в ANSI. Это можно исправить? Т.е. чтобы всегда сохранялось в UTF.

Профессиональные приемы работы в Microsoft Excel
►
Обмен опытом
►
Microsoft Excel
►
Сохранить каждую строку как отдельный файл

Источник

Советы по Excel
Функции Excel
Формулы Excel
Excel Диаграммы
Советы по словам
Советы по Outlook

Обычно мы можем легко сохранить рабочий лист в виде отдельного текстового файла, но как экспортировать и сохранить одну строку в виде текстовых файлов в Excel? И как экспортировать и сохранять каждую строку в виде отдельного текстового файла? Эта статья познакомит Kutools for Excelутилиты, чтобы решить их легко.

Экспорт/сохранение одной строки в виде текстового файла с помощью Kutools for Excel

Экспорт/сохранение каждой строки в виде текстовых файлов с Kutools for Excel

Простое массовое сохранение каждого листа как отдельного PDF / CSV / текстового файла или книги в Excel

Обычно мы можем сохранить активный рабочий лист в виде отдельного файла .pdf, .txt или .csv с помощью функции «Сохранить как». Но Kutools for ExcelАвтора Разделить книгу Утилита поможет вам легко сохранить каждую книгу как отдельный файл PDF / CSV / Text или книгу в Excel.

Kutools for ExcelАвтора Диапазон экспорта в файл утилита может сохранять диапазон в виде текстового файла, файла csv или html и т. д. Таким образом, мы можем применить эту утилиту для легкого экспорта всей строки в виде текстового файла в Excel.

1. Выделите всю строку, которую вы сохраните как текстовый файл, и нажмите кнопку Кутулс Плюс > Импорт Экспорт > Диапазон экспорта в файл. Смотрите скриншот ниже:

2. В открывшемся диалоговом окне «Диапазон экспорта в файл» установите флажок Текст Юникода вариант, а затем нажмите кнопку Обзор за Сохранить каталог пунктом.

3. Во всплывающем диалоговом окне «Выбор каталога для экспорта файла» выберите папку, в которую вы сохраните текстовый файл, и нажмите кнопку OK кнопку.

4. Нажмите Ok кнопку, когда он вернется в Диапазон экспорта в файл диалоговое окно.

Ноты:

1. Если вы хотите открыть текстовый файл после успешного сохранения, вы можете проверить Открыть файл после экспорта в диалоговом окне «Экспортировать диапазон в файл».

2. Если вам нужно сохранить несколько строк как отдельные текстовые файлы, вы должны повторить эти шаги много раз, чтобы сохранить каждую строку как отдельный текстовый файл. Чтобы легко сохранить каждую строку в виде отдельного текстового файла, просмотрите следующий метод.

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

Собственно, если у вас есть Kutools for Excel установлен, мы можем разделить каждую строку на новый лист по ее Разделить данные утилиту, а затем примените ее Разделить книгу утилита для сохранения этих листов в виде отдельных текстовых файлов в Excel.

1. Выберите диапазон, в котором вы сохраните каждую строку как текстовый файл, и щелкните значок Кутулс Плюс > Разделить данные.

2. В диалоговом окне «Открытие разделенных данных на несколько листов» установите флажок Фиксированные строки вариант и тип 1 в поле ниже укажите правило в поле Правила раскрывающееся меню и щелкните Ok кнопку.

Теперь каждая строка разделена на новый лист новой книги со строкой заголовка. Если вам не нужна строка заголовка на новых листах, снимите флажок У моих данных есть заголовки опцию.

3. На новом листе щелкните значок Кутулс Плюс > Workbook > Разделить книгу.

4. В открывшемся диалоговом окне «Разделить книгу» установите флажок Сохранить как выберите, выберите Текст в Юникоде (* .txt) из раскрывающегося списка ниже и нажмите кнопку Трещина кнопку.

Ноты:

(1) Если вам не нужно сохранять скрытые рабочие листы в виде текстовых файлов, проверьте Пропустить скрытые листы опцию.

(2) Если вам не нужно сохранять пустые рабочие листы в виде текстовых файлов, проверьте Пропускать пустые листы опцию.

5. Укажите папку, в которую вы будете сохранять текстовые файлы в папке Выбор папки диалоговое окно и щелкните Выбор папки кнопку.

Если существует много листов, которые вы сохраните в виде текстовых файлов, на разделение потребуется некоторое время.

Затем вы увидите, что каждая строка разделена и сохранена в виде текстового файла в указанной папке.

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (11)

Оценок пока нет. Оцените первым!

Подписывайтесь на Нас

Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.

Источник

Разделение текста по строкам в excel

Разделение текста на столбцы с помощью мастера распределения текста по столбцам

Распределение содержимого ячейки на соседние столбцы

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

Разбить текст ячейки (строки), содержащий разделитель, на строки

Редактирование ячейки в Excel и разбиение текста на несколько строк

Редактирование строки текста в ячейках

Как сделать несколько строк в ячейке Excel?

Режим редактирования

Разделение текста в ячейке, на строки.

Разделение текста по строкам

Разделить текст Excel на несколько ячеек.

Разнесение в MS EXCEL текстовых строк по столбцам

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

Разбить текст ячейки (строки), содержащий разделитель, на строки

Редактирование ячейки в Excel и разбиение текста на несколько строк

Редактирование строки текста в ячейках

Как сделать несколько строк в ячейке Excel?

Режим редактирования

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

Разделение по строкам в Excel

Как разделить текст в ячейке Excel?

Мастер разбора текстов

Рассоединяем текст с помощью формул

Выдергиваем слова с помощью макросов VBA

Разбить по строкам/столбцам

Данная функция является частью надстройки MulTEx

Финансы в Excel

Текст по столбцам и строкам

Как разделить текст в ячейке Excel?

Мастер разбора текстов

Рассоединяем текст с помощью формул

Выдергиваем слова с помощью макросов VBA

Разделить текст по столбцам в Excel

Текст по столбцам и строкам

Смотри также

» Извлечение чисел из набора строк

» Объединение строк

» Объединение строк

Сохранить каждую строку как отдельный файл

Простое массовое сохранение каждого листа как отдельного PDF / CSV / текстового файла или книги в Excel

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Подписывайтесь на Нас

А вот еще интересные статьи: