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

[Евгений Таб]

Привет коллеги, столкнулся с проблемой.

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

Буду признателен за решение.

Спасибо>!

[27102014]

Доработайте под свои нужды - Вы как-то не очень хорошо расписали задачу "через пробел" - пробел у Вас встречается и там, где перенос должен быть в одну ячейку, например FI Date, Net value

Данный макрос разбивает все в столбик J:J, вот это
value
5060021072

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

Доработайте слова - скорее всего они одни и те же, может соориентироваться под крайнее значение 28000,00 - для счетчика столбцов и перехода на следующую строку

Sub Macro1()
'
    Dim rCell As Range, li As Long, le As Long, sWord, vNamber
    
    li = Cells(Rows.Count, 1).End(xlUp).Row
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each rCell In Range(Cells(15, 1), Cells(li, 1))
        vNamber = Split(rCell)
        sWord = Split(rCell.Offset(, 10).Value, ",")
        For le = LBound(vNamber) To UBound(vNamber)
            If vNamber(le) <> "" Then Cells(li, 10) = Trim(vNamber(le))
            If sWord(le) <> "" Then Cells(li, 10) = Application.Proper(Trim(sWord(le)))
            li = li + 1
        Next le
    Next rCell
    Application.ScreenUpdating = True
End Sub

[Евгений Таб]

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

[Кардаган]

Сообщение от Евгений Таб

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

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

[gling]

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

[Евгений Таб]

Сообщение от gling

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

Руками - инструмент понятен.
Непонятно как, разбить все ячейки которые через пробел + где перенос строки...

[gling]

Непонятно как, разбить

А Вы пробовали по написанному? И что не устроило? Или у Вас столбец с такими ячейками а не как написано.

В 1 ячейке есть данные, их нужно разбить не только по столбцам,