Объединение нескольких несмежных колонок в один диапазон

[rdva]

Можно объеденить несколько несмежных колонок (к примеру A,C,E) в один диапазон и работатьс ними как будто это колонки A,B,C?

Вот этот код

Код: Выделить всё

Set MyRange = Workbooks("Test.xls").Worksheets(1).Range("A1:A3,C1:C3,E1:E3)

For Each Cel In MyRange
    MsgBox Cel.Value
Next

перебирает MyRange по каждой колонке сверху вниз (A1,A2,A3,C1,C2,C3 и т.д.), а нужно A1,C1,E1,A2,C2,E2 и т.д.

[Pavel55]

)) как-то у меня глупо получается ))

Код: Выделить всё

Sub Макрсо1()
Dim r As Long, c As Long
Dim MyRange As Range
    Set MyRange = Range("A1:A3,C1:C3,E1:E3")
    For r = 1 To 3 'по рядам
        For c = 1 To 5 Step 2 'по столбцам
            MsgBox MyRange.Item(r, c)
        Next c
    Next r
End Sub