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

Posted by obzor under Basic, VBA

В 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

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel