Dim arrTemp
arrTemp = Split(Range("a1").Value, " ")
For i = LBound(arrTemp) To UBound(arrTemp)
ActiveCell.Offset(0, i + 1).Value = arrTemp(i)
Next i
из ячейки разнести предложение по словам в разные
Добрый день. Подскажите, пожалуйста.
Периодически сталкиваюсь с такой проблемой.
Из 1С получаю информацию:
281211 Вино Бургинди красное сухое 3л.
261212 Вино Дон Барджелло белое сухое 5л.
и т.д.
В отчете приходится разбивать на ячейки
Код Категория Наименование Цвет Тип Литраж
281211 Вино Бургинди красное сухое 3л.
На форуме видел, что можно раносить по буквам.
А можно из одной ячейки разносить по словам в разные.
Периодически сталкиваюсь с такой проблемой.
Из 1С получаю информацию:
281211 Вино Бургинди красное сухое 3л.
261212 Вино Дон Барджелло белое сухое 5л.
и т.д.
В отчете приходится разбивать на ячейки
Код Категория Наименование Цвет Тип Литраж
281211 Вино Бургинди красное сухое 3л.
На форуме видел, что можно раносить по буквам.
А можно из одной ячейки разносить по словам в разные.
Если между словами не будет лишних (2 и более) пробелов, то годится что-то такое (пример для одной ячейки с исходными данными):
Код:
Цитата: Слава Лебеденко
Добрый день. Подскажите, пожалуйста.
Периодически сталкиваюсь с такой проблемой.
Из 1С получаю информацию:
281211 Вино Бургинди красное сухое 3л.
261212 Вино Дон Барджелло белое сухое 5л.
и т.д.
В отчете приходится разбивать на ячейки
Код Категория Наименование Цвет Тип Литраж
281211 Вино Бургинди красное сухое 3л.
На форуме видел, что можно раносить по буквам.
А можно из одной ячейки разносить по словам в разные.
Периодически сталкиваюсь с такой проблемой.
Из 1С получаю информацию:
281211 Вино Бургинди красное сухое 3л.
261212 Вино Дон Барджелло белое сухое 5л.
и т.д.
В отчете приходится разбивать на ячейки
Код Категория Наименование Цвет Тип Литраж
281211 Вино Бургинди красное сухое 3л.
На форуме видел, что можно раносить по буквам.
А можно из одной ячейки разносить по словам в разные.
Существует специальный метод для этого:
Код:
..
Range("A1").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth
..
Range("A1").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth
..
Если не хочешь программно: "Данные->Текст по столбцам"
Большое спасибо за информацию.
да, выделите вашу информацию, затем меню Данные - Текст по столбцам... на втором шаге мастера мышкой поставьте галочку "Символом-разделителем является" Пробел (галочка) - Готово