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

[AllenJ]

Здравствуйте, есть у меня макрос, который разбивает содержимое одной ячейки на отдельные ячейки. То есть, если например в одной ячейке стоит цифра 1 и 2, макрос разбивает на 1 в одну ячейку, 2 в другую. Макрос работает с масивом до 5 цифр в одной ячейке включительно. То есть, если в ячейке, скажем 7 цифр - макрос разбивает на 5 ячеек, в пятую же помещает все остальные цифры.
Подскажите, как исправить, чтобы макрос работал на 10 цифр?

    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)), _
        TrailingMinusNumbers:=True
        Application.DisplayAlerts = True

[VictorM]

Приведенный Вами фрагмент кода делает не совсем то, что Вы описали.
А разбить до 10-ти знаков может вот такая строка

Selection.TextToColumns Destination:=Selection, DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), 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

P.S.
Может кто напишет короче

[AllenJ]

Спасибо, но что-то не так, разбивает по два столбика через 1, а в десятый вбивает все отсальные цифры

[kuklp]

Прикольно Вить, получается. Столкнулся с таким вопросом - как объявить массив массивов в ВБА? Похоже никак:-( в vb.net можно, а в VB - нет. Ну, или я чего-нить не знаю. Получить например, с помощью словаря, легко. Я тут поизгалялся... Делим текст по буквам, длина текста <= 256 символов:

Private Sub www()
    Dim a(255), tmp(0, 1), i&
    For i = 0 To 255
        tmp(0, 0) = i: tmp(0, 1) = 1: a(i) = tmp
    Next
    Selection.TextToColumns Selection, 2, FieldInfo:=a
End Sub

[tae1980]

Эти функции помогут просто и без проблем разобрать любую строковую переменную, без каких либо ограничений.

Function words(str, Optional Разделитель = "") As Long
'Определяет количество слов в строковой переменной. Аналог команды Rexx.
'На входе:
'str           - Строковая перменная.
'Разделитель   - Символ резделитель. При отсутсвие за разделитель принимаются пробел и таб.
'На выходе:
'words         - Количество слов в переменной.
    If Разделитель = "" Then
        words = UBound(Split(Application.Trim(Replace(str, vbTab, " ")), " ")) + 1
    Else
        words = UBound(Split(Application.Trim(Replace(Replace(str, " ", Chr(160)), Разделитель, " ")), " ")) + 1
    End If
End Function

Function word(str, Number, Optional Разделитель = "") As String
'Функция возвращает n-ное слово в указаной строке. Аналог команды Rexx.
'На входе:
'str           - Строковая перменная.
'Number        - Номер слова.
'Разделитель   - Символ резделитель. При отсутсвие за разделитель принимаются пробел и таб.
'На выходе:
'word          - n-ное слово или пустую строку если слова с таким номером нет.

    If Разделитель = "" Then
        word = Split(Application.Trim(Replace(str, vbTab, " ")), " ")(Number - 1)
    Else
        word = Application.Trim(Replace(Split(Application.Trim(Replace(Replace(str, " ", Chr(160)), Разделитель, " ")), " ")(Number - 1), Chr(160), " "))
    End If
End Function

[kuklp]

Попробуйте с их помощью разбить строку по ячейкам. Строка - "1234567890". Или это мы с Виктором неверно поняли вопрос?

[tae1980]

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

Попробуйте с их помощью разбить строку по ячейкам. Строка - "1234567890". Или это мы с Виктором неверно поняли вопрос?

Это не есть текстовая строка. Строка априори состоит из одного и более слов.
Если считать это текстовой строкой, то состоящей из одного слова. Разбор элементарный. А разбор слова на символы, в условии задачи не значился. Для этой задачи я бы использовал mid() и len(). Где то так, на вскидку.

for n=1 to 5
   if n>len(str) then exit for
   ячейка(n)=mid(str,n,1)
next n
if n<len(str) then ячейка(n)=mid(str,n,len(str)-5)

Хотя возможно это я не понял начальные условия.

[kuklp]

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

Это не есть текстовая строка. Строка априори состоит из одного и более слов.

Что Вы говорите? Для экселя даже пустая строка есть строка. "", " ", "0", "мама мыла..." - все это строки.

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

Для этой задачи я бы использовал mid() и len().

Кто не дает? Может у Вас получится короче:-) И быстрей.

[Казанский]

Можно использовать не массив массивов, а обычный двумерный массив:

Sub Макрос1()
Dim x(0 To 9, 0 To 1), i
For i = 0 To 9
    x(i, 0) = i: x(i, 1) = 1
Next
Selection.TextToColumns Destination:=Selection, DataType:=xlFixedWidth, _
    FieldInfo:=x, TrailingMinusNumbers:=True
End Sub

ДОПОЛНЕНИЕ
При большом желании двумерный массив можно сформировать формулой. Для 2007:

Sub Макрос1()
Selection.TextToColumns Destination:=Selection, DataType:=xlFixedWidth, _
    FieldInfo:=[IFERROR((ROW(1:10)-1)^{1,0},1)], TrailingMinusNumbers:=True
End Sub

[tae1980]

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

Что Вы говорите? Для экселя даже пустая строка есть строка. "", " ", "0", "мама мыла..." - все это строки.

Да это все может быть содержание строковой переменной.
"" - пустая строковая переменная.
" " - пустая строковая переменная, содержит один разделитель.
"мама мыла..." - строковая переменная содержит два слова, разделитель пробел. Можно применить более глубокий разбор, определить и убрать многоточие.

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

Кто не дает? Может у Вас получится короче:-) И быстрей.

Краткость не главный критерий. ИМХО гораздо важнее читаемость, понимаемость, простота модернизации и "красота" листинга (при ~равной производительности кода).