Макрос: рекурсивное добавление столбцов

[BoMBuR]

Доброго вам времени суток! Уверен вы пользуетесь такими макросами и можете поделиться.

Более подробно - надо сделать так, чтобы к концу первого столбца добавлялось начало второго и т.д. по рекурсии пока не кончатся.
Совсем идеально если можно проделывать это для парных столбцов, типа таких:



, когда первые два дополняются вторыми двумя.
Заранее спасибо.

[exceleved]

Пробуйте. Данные не обязаны начинаться с А1, столбцы могут иметь разную высоту и ширину.
Столбцы должны быть разделены пустыми ячейками и должны состоять из констант.

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

Sub bb()
Dim a As Range, i&, c&
For Each a In Cells.SpecialCells(xlCellTypeConstants).Areas
    If i = 0 Then 'первая область
        c = a.Column
        i = a.Row + a.Rows.Count
    Else
        a.Copy Cells(i, c)
        i = i + a.Rows.Count
    End If
Next
End Sub

[BoMBuR]

Большое спасибо, все работает.