выбор нескольких диапазонов и их обработка

[GOrilla]

здравствуйте всем! такой вопрос замучил: так как впервые столкнулся с VBA, то многого не понимаю и не знаю, так вот такая ситуация, надо выбрать ну например два диапазона в Excel (клавишей Ctrl) и с помощью макроса или функции их обработать, произвести расчеты. как это сделать в VBA, подскажите кто знает.

[KL]

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

Sub test()
    Dim rng As Range
    Dim cell As Range
   
    Set rng = Union([A1:A5], [D1:D5], [G1:G5])
   
    For Each cell In rng
        If cell > 0 Then cell = "" Else cell = 1
    Next cell
End Sub

[MYF]

GOrilla, вот так можно пронумеровать по порядку все ячейки всех диапазонов на текущем листе

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

Sub Test()
Dim i As Integer
Dim r As Range
Dim c As Range
i = 0
For Each r In Selection.Areas
  For Each c In r
   i = i + 1
   c = i
   Next c
  Next r
End Sub