Выбор колонки в несвязанном диапазоне

[Calvin]

Здраствуйте уважаемые!
Есть несвязанный диапазон. Например

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

Set Myrange=Union(rows(1),rows(3),rows(5))


Нужно получить адрес этого диапазона, но в пределах колонки(2)
Типа так:

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

MyAdr=Myrange.Columns(2).address(0,0)


но определяется только адрес колонки 2 из первой области (Areas)....как решить, чтобы в итоге MyAdr="B1,B3,B5" ?

[KL]

Может так?

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

Sub test()
    Dim myRange As Range
    Set myRange = Union(Rows(1), Rows(3), Rows(5))
    MsgBox Intersect(myRange, myRange.Columns(2).EntireColumn).Address
End Sub

[Calvin]

Спасибо...просто супер! А что это за свойство EntireColumn ?

[KL]

Спасибо...просто супер! А что это за свойство EntireColumn ?

Это свойство объекта Range и возвращает объект Range целых столбцов, т.е. для [A1] - [A:A], для [B1:D20] - [B:D] и т.д.

[Calvin]

Вот с толкнулся еще с одной проблемой - нужно получить количество сток Интерсекта

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

rc=Intersect(myRange, myRange.Columns(2).EntireColumn).rows.count


но что-то не получается
Я идиот! Убейте меня, кто-нибудь!

[KL]

Вот с толкнулся еще с одной проблемой - нужно получить количество сток Интерсекта

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

rc=Intersect(myRange, myRange.Columns(2).EntireColumn).rows.count


но что-то не получается
Я идиот! Убейте меня, кто-нибудь!

Если myRange формируется из целых строк, то наверное проще так:

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

rc=myRange.Areas.Count

[Calvin]

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

[KL]

А так?

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

Sub test()
    Dim myRange As Range
    Set myRange = Union(Rows(1), Rows("3:4"), Rows(5))
    MsgBox Intersect(myRange, myRange.Columns(2).EntireColumn).Cells.Count
End Sub

[Calvin]

Просто бомба!!! Спасибо