Разбивка ячейки на столбец

[kuklp]

Ну да, прозевал. Всего одну циферку исправить:

Public Sub www()
    Dim c As Range, a, i&
    For Each c In [a7].CurrentRegion
        a = Split(c, " ")
        For i = 1 To UBound(a)
        If InStr(a(i), ".") = 0 Then _
            [a65536].End(xlUp)(2) = Trim$(a(i))
        Next
        [a65536].End(xlUp)(2) = a(UBound(a))
    Next
End Sub

[IgorGO]

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

[ymnuhj]

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

Ну да, прозевал. Всего одну циферку исправить:

Извиняюсь за глупое замечание. Я сразу это попробовал. Вот только умудрился заставить программу выдать мне ошибку. Наверное у меня своего рода талант.

Я тут также пытался цикл составить , для того чтобы эта програмка обработала всю седьмую строку(партий то авантюрных у меня много), но опять в холостую. Подчеркнул свои добавления:

Public Sub www()
    Dim c As Range, a, i&
    Dim j As Integer
    For j = 1 To 100
    For Each c In Cells(7, j).CurrentRegion
        a = Split(c, " ")
        For i = 1 To UBound(a)
        If InStr(a(i), ".") = 0 Then _
            [a65536].End(xlUp)(2) = Trim$(a(i))
        Next
        [a65536].End(xlUp)(2) = a(UBound(a))
    Next
    Next j
End Sub

Подскажите пожалуйста как изменить ссылки чтобы она работала?

[kuklp]

Программа(пост №11) и так ее всю обработает при условии, что:
строка сверху и снизу будет ограничена пустыми строками;
в строке не будет пропущенных ячеек.

[ymnuhj]

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

Программа(пост №11) и так ее всю обработает при условии, что:
строка сверху и снизу будет ограничена пустыми строками;
в строке не будет пропущенных ячеек.

Странно. У меня она обрабатывает только первую ячейку а7. B7 и дальше она не трогает

[kuklp]

Вот Ваш пример. Я добавил сообщения с адресом обрабатываемой ячейки.

[ymnuhj]

Понятно. Данный код (Пост 11) загружает все шахматные партии в первый столбец одну за другой. Я сперва этого не заметил. Думал он загружает туда только первую.

Но тогда появляется проблема отделения одной партии от другой.

Помогите пожалуйста изменить данный код так, чтобы он ставил между партиями разделители (К примеру определенное слово). Тогда я дальше сумею составить код, чтобы раскидать партии по соответствующим столбцам.

Либо (как вариант), чтобы он сразу загружал каждую партию в свой столбец.