Спасибо, я понял за свои ошибки. (http://www.excelworld.ru/forum/2-4896-1) Во вложенном файле пример (редактированный вручную). Суть: из базы выкачивается большой объем данных, Для дальнейшего использования необходимо разбить текст находящийся в одной ячейке на отдельные строчки.
З.Ы. это противоположно: ДАННЫЕ/ТЕКСТ ПО СТОЛБЦАМ ,
Спасибо, я понял за свои ошибки. (http://www.excelworld.ru/forum/2-4896-1) Во вложенном файле пример (редактированный вручную). Суть: из базы выкачивается большой объем данных, Для дальнейшего использования необходимо разбить текст находящийся в одной ячейке на отдельные строчки.
З.Ы. это противоположно: ДАННЫЕ/ТЕКСТ ПО СТОЛБЦАМ ,Игорь
Можно попробовать так: 1) выделяем нужный диапазон или весь столбец -- открываем диалоговое окно Найти и Заменить -- в поле Найти ставим пробел, в поле Заменить какой-нибудь неиспользуемый в тексте символ, например # -- Заменить все. Другими словами меняем пробелы на символ #. 2) В этом же окне в поле Найти убираем пробел и ставим символ перевода строки, для этого нажимаем сочетание клавиш Alt+0010 (на цифровой клавиатуре), а в поле Заменить ставим пробел -- Заменить все. То есть меняем перевод строки на пробел. 3) А дальше (была у нас замечательная тема Текст по строкам) делаем ширину столбца меньше самой короткой строчки -- Заполнить -- Выровнять -- на появившееся предупреждение соглашаемся и получаем текст в разных ячейках. 4) Осталось только заменить обратно # на пробел.
Единственное, номера слева выстраиваются не так, как в образце.
ЗЫ: в той же теме по ссылке во втором посте ещё одно решение (от ikki), и номера правильно выстроятся. Текст по столбцам делать по разделителю Alt+0010
Можно попробовать так: 1) выделяем нужный диапазон или весь столбец -- открываем диалоговое окно Найти и Заменить -- в поле Найти ставим пробел, в поле Заменить какой-нибудь неиспользуемый в тексте символ, например # -- Заменить все. Другими словами меняем пробелы на символ #. 2) В этом же окне в поле Найти убираем пробел и ставим символ перевода строки, для этого нажимаем сочетание клавиш Alt+0010 (на цифровой клавиатуре), а в поле Заменить ставим пробел -- Заменить все. То есть меняем перевод строки на пробел. 3) А дальше (была у нас замечательная тема Текст по строкам) делаем ширину столбца меньше самой короткой строчки -- Заполнить -- Выровнять -- на появившееся предупреждение соглашаемся и получаем текст в разных ячейках. 4) Осталось только заменить обратно # на пробел.
Единственное, номера слева выстраиваются не так, как в образце.
ЗЫ: в той же теме по ссылке во втором посте ещё одно решение (от ikki), и номера правильно выстроятся. Текст по столбцам делать по разделителю Alt+0010Pelena
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]
Можно макросом Код [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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
