определение колонок / ячеек в несмежном диапазоне

[Bape}l{ka]

привет всем))

подскажите пожалуйста, как макросом определить номера столбцов в выделенном несмежном диапазоне??
и загнать эти номера столбцов в массив

[nilem]

Для примера:

Sub ert()
Dim r As Range, rAr As Range, x(), i&
Dim msg$
For Each rAr In Selection.Areas
    MsgBox rAr.Address
    For Each r In rAr.Columns
        ReDim Preserve x(i)
        x(i) = r.Column: msg = msg & " " & x(i)
        i = i + 1
    Next
Next
MsgBox msg
End Sub

[Bape}l{ka]

вау, круто!
правда для меня сложновато О.о, не совсем понимаю, как работает
nilem, поясните пожалуйста, если не сложно..

п.с.: понятно, что сначала выделяем отдельные Area.. а r в данном случае что? колонка?

[Bape}l{ka]

вроде разобралась, что там к чему
в итоге, вот так мы смотрим номера строк

Sub DefinitionSelectionRows()
'определяет в несмежном диапазоне по выделению № строк и загоняет их в массив
Dim r As Range, rArea As Range, ArrayRows(), i&
Dim msg$    
For Each rArea In Selection.Areas
    MsgBox rArea.Address     'выводит адреса несмежных диапазонов
    For Each r In rArea.Rows
        ReDim Preserve ArrayRows(i)
        ArrayRows(i) = r.Row: msg = msg & " " & ArrayRows(i)
        i = i + 1
    Next
Next
MsgBox msg
End Sub