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

[kuklp]

Там вообще другой подход нужен:

Public Sub www()
Dim s: s = Split(ActiveCell)
ActiveCell.Resize(, UBound(s)) = s
End Sub

[VictorM]

Ну собственно, как я и предполагал)))
Почему бы Вам в самом начале не сказать (показать) в каком формате и как у Вас вводятся данные. Да еще и спробелами
Конечно, при таком раскладе мой код работает некорректно, т.к. он работает при вводе 10 знаков подряд, т.е. 1234567891

[kuklp]

Так для диапазона:

Sub www()
    Selection.TextToColumns Selection, 1, _
        ConsecutiveDelimiter:=True, Space:=True
End Sub

[VictorM]

Вот так работает ваш подправленый макрос

Sub tt1()
Application.DisplayAlerts = False
    Selection.TextToColumns Destination:=Selection, DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(5, 1), Array(8, 1), Array(11, 1), _
        Array(14, 1), Array(17, 1), Array(20, 1), Array(23, 1), Array(26, 1)), _
        TrailingMinusNumbers:=True
        Application.DisplayAlerts = True
End Sub

Всего-то, посчитать положение данных в строке и добавить код

P.S.
У kuklp см. выше, красивше ))

[tae1980]

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

И дело в том, что я работаю с цифрами именно вида 01, и мне наруку то, что 0 теряется при использовании макроса (тут просто автоформат экселя срабатывает).

Попробуй это.

[AllenJ]

Всем большое спасибо, разобрался!