Добавление смежного диапазона.

[KemanSR]

Необходимо добавить диапазон к другому диапазону, при условии что они смежные. Также необходимо чтобы они не объединялись.

Dim r1, r2 As range
Set r1 = range("A1:A3")
Set r2 = range("A4:A5")
Set r2 = Union(r1, r2)

... мне нужно получить диапазон включающий оба выше упомянутых. Ну а потом скорее всего с помощью Areas буду работать со всеми диапазонами.
Прошу снисхождения учу VBA два дня.( а так пишу на С/С++)

Спасибо за помощь, Алексей.

[Скрипт]

Вот такой вариант:

Sub Procedure_1()

    Dim rngRanges(1 To 2) As Excel.Range
    Dim i As Long
    
    Set rngRanges(1) = Range("A1")
    Set rngRanges(2) = Range("B1")
    
    For i = 1 To UBound(rngRanges) Step 1
        'Вывод результата в View - Immediate Window.
        Debug.Print rngRanges(i).Address
    Next i

End Sub

[KemanSR]

Это Вы массив диапазонов создали? Мне необходимо передавать диапазон в другую функцию. А почему не смежные диапазоны добавляются "A1:A3, C5:C8", а смежные объединяются. ... и почему если есть Areas, то не работать с ним?

[Скрипт]

KemanSR: А почему не смежные диапазоны добавляются "A1:A3, C5:C8", а смежные объединяются.

так придумали программисты из Microsoft.

KemanSRи почему если есть Areas, то не работать с ним?

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

[EducatedFool]

А почему не смежные диапазоны добавляются "A1:A3, C5:C8", а смежные объединяются

Видимо, так устроен Excel
Кстати, они не всегда объединяются.
Сколько работал с подобным объединением - диапазоны не объединялись
Попробовал ваш код - узнал много нового

Чем не устраивает вариант с массивом диапазонов?

[KemanSR]

Сообщение от Скрипт

вы же не знаете, как с ним работать

Думаю что Areas я осилю, мне бы смежные диапазоны в один запихать. Что неужели это невозможно? Может быть есть что-нибудь кроме Union, или параметры самого Union???

[IgorGO]

KemanSR, задачу сформулируйте четче, возможно, и ответы будут конкретнее.

[KemanSR]

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

задачу сформулируйте четче

Задаем диапазон в котором встречаются повторяющиеся ячейки. Мне необходимо объединить содержимое и отформатировать его. Так как я только учусь, то я решил написать функцию которой передается диапазон. В диапазоне ищем повторяющиеся ячейки и создаем другой диапазон, состоящий из диапазонов повторяющихся ячеек. Его то функция и должна вернуть, ну а я уж бы форматнул бы по вкусу. Конечно можно форматировать в этой функции по мере нахождения, просто на си я бы предпочел сабж.

[Казанский]

set r2=union(range("A1:A3"),range("A4:A5")) 'r2.Areas.Count = 1
 
set r2=range("A1:A3,A4:A5") 'r2.Areas.Count = 2

Такие дела

[KemanSR]

Сообщение от Казанский

Такие дела

Что, предлагаете генерировать строку, а потом создавать диапазон на ее основе?