Как разбить ячейку с цифрами?

[AllenJ]

В ячейке есть некий набор цифр, вида

01020304050607

Как сделать, чтобы макрос разбивал эти цифры на отдельные ячейки?

То есть: 01 02 03 04 05 06 07 (Каждая цифра (включая 0) разделяется в соседнюю ячейку).

То есть, например, набор цифр находится в A1 - 01020304050607

--- Жмем макрос:

A1 - 01
B1 - 02
C1 - 03
D1 - 04
E1 - 05

И т.д.

Уточнение: цифры всегда имеют вид двухзначный, то есть от 01 до 99.

Есть макрос, который работает правильно, но разбивает цифры, имеющие пробел, то есть: 01 02 03 04 05 06 07. Каждую из этих цифр (двухзначную!) он вставляет в соседнюю ячейку.

Можно его модернизировать так, чтобы разбивал точно так же, но из такого изначального вида: 01020304050607

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

Спасибо!

[IgorGO]

если данные в первом столбце, то во второй пишите:

=ПСТР(RC1;(СТОЛБЕЦ()-2)*2+1;2)
или
=ПСТР($A1;(СТОЛБЕЦ()-2)*2+1;2)

копируете вправо раз 6-7 и вниз сколько нужно

[AllenJ]

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

[Казанский]

Запишите сами в макрос это действие: Данные - Текст по столбцам - фиксированный - расставьте стрелки через каждые 2 символа с запасом (например, до 20 позиции) - выделите все столбцы, формат - Текстовый (чтобы сохранить нули) - Готово.

[IgorGO]

Sub Split2(s As String, r0 As Long, c0 As Long, Optional p As Long = 0)
  If (p + 1) * 2 > Len(s) Then Exit Sub _
    Else Cells(r0, c0 + p) = "'" & Mid(s, p * 2 + 1, 2): Split2 s, r0, c0, p + 1
End Sub

Sub Banzay()
  Const DataClmn As Long = 1, ResultClmn As Long = 2
  Dim r As Long
  For r = 1 To Cells(Rows.Count, DataClmn).End(xlUp).Row: Split2 Cells(r, 1), r, ResultClmn: Next
End Sub

укажите в Banzay колонку с данными (DataClmn), начальную колонку, куда выводить данные (ResultClmn) и выполните ее.

удачи!

[AllenJ]

Всем спасибо!!

[kuklp]

Игорь, привет. А чем текст по столбцам плох? Фиксированной ширины.

[IgorGO]

а чем была формула плоха?

я смотрел в сторону "текста фиксированной ширины". но написал нечто, для тренировки, не выкидывать же теперь, вот и появилось здесь процедура Split2. не знаю как AllenJ-у, Сереж, но допускаю, что тебе это могло показаться забавным.

[kuklp]

Да не, все нормально:-) Просто и правда позабавило, что AllenJ сам же выложил подходящее решение. Угадал все буквы но не смог назвать слова:-)