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

[Varchello]

Добрый день, помогите, пожалуйста. есть программа по ведению домашней бухгалтерии, анализировать статистику проще в excel, при экспорте данных программа выгружает все в одну ячейку, как должен выглядеть макрос, который будет каждую ячейку разбивать на соответствующие столбцы. разделитель между данными ";".

Если не смог на русском объяснить то результат экспорта можно посмотреть в прикрепленном файле.

[_Boroda_]

Выделите текст для разбивки, вкладка Данные - текст по столбцам, дальше там все понятно.
То же самое макросом

Код Выделить Развернуть

Sub tt()
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
End Sub


[Varchello]

Большое человеческое спасибо