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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вертикальное редактирование в ячейке/разбитие на строки

Игорь

Дата: Понедельник, 27.05.2013, 23:47 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Спасибо, я понял за свои ошибки. (http://www.excelworld.ru/forum/2-4896-1)
Во вложенном файле пример (редактированный вручную).
Суть: из базы выкачивается большой объем данных,
Для дальнейшего использования необходимо разбить текст находящийся в одной ячейке на отдельные строчки.

З.Ы. это противоположно: ДАННЫЕ/ТЕКСТ ПО СТОЛБЦАМ ,

К сообщению приложен файл: 8714688.xls (17.0 Kb)

Ответить

Pelena

Дата: Вторник, 28.05.2013, 00:27 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19197

Репутация: 4423 ±

Замечаний: ±

Excel 365 & Mac Excel

Можно попробовать так:
1) выделяем нужный диапазон или весь столбец -- открываем диалоговое окно Найти и Заменить -- в поле Найти ставим пробел, в поле Заменить какой-нибудь неиспользуемый в тексте символ, например # -- Заменить все. Другими словами меняем пробелы на символ #.
2) В этом же окне в поле Найти убираем пробел и ставим символ перевода строки, для этого нажимаем сочетание клавиш Alt+0010 (на цифровой клавиатуре), а в поле Заменить ставим пробел -- Заменить все. То есть меняем перевод строки на пробел.
3) А дальше (была у нас замечательная тема Текст по строкам) делаем ширину столбца меньше самой короткой строчки -- Заполнить -- Выровнять -- на появившееся предупреждение соглашаемся и получаем текст в разных ячейках.
4) Осталось только заменить обратно # на пробел.

Единственное, номера слева выстраиваются не так, как в образце.

ЗЫ: в той же теме по ссылке во втором посте ещё одно решение (от ikki), и номера правильно выстроятся. Текст по столбцам делать по разделителю Alt+0010

К сообщению приложен файл: 8760786.xls (26.5 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

AlexM

Дата: Вторник, 28.05.2013, 10:34 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4511

Репутация: 1128 ±

Замечаний: 0% ±

Excel 2003

Можно макросом
Код
[vba]

Код

Sub Macros()
Dim i As Long
For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
iArr = Split(Cells(i, 3).Value, Chr(10))
Rows(i + 1).Resize(UBound(iArr)).Insert
Cells(i, 3).Resize(UBound(iArr) + 1) = Application.Transpose(iArr)
Cells(i, 2).Resize(UBound(iArr) + 1) = Cells(i, 2).Value
Next i
End Sub

[/vba]

К сообщению приложен файл: 8714688_new.xls (22.0 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вертикальное редактирование в ячейке/разбитие на строки

Страница 1 из 1
1