Несвязанный диапазон строк

[Calvin]

Здраствуйте, уважаемые.
У меня есть таблица. Если данные в ячейках какого-нибудь столбца удовлетворяют нужному критерию, мне нужно выделить строку. И так далее до конца списка, причем диапазон строк конечно несвязанный.
rows("1,4,5").Select не прокатывает
Вот еще на счет Selection. Нельзя ли в него, как в массив добавлять новые диапазоны выделения.....или этот объект только для чтения?

[GSerg]

union(rows(1), rows(4), rows(5)).select

[Calvin]

Спасибо, идея хороша....
А вообще у меня был вариант такой

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

Do While Range("a1").Offset(i, 0).value <> ""
    If Range("a1").Offset(i, 0).Value = "критерий_1" Then
      textrow = textrow & (Range("a1").Offset(i, 0).Row & ":" & Range("a1").Offset(i, 0).Row) & ","
    End If
    i = i + 1
Loop
Range(Left(textrow, Len(textrow) - 1)).Select


просто динамически с UNIONом будет сложнее...........

[GSerg]

Не будет сложнее.

dim CurRange as range
....
set CurRange = Union(CurRange, NewRow)

[Calvin]

set CurRange = Union(CurRange, NewRow)
вот на первом этапе добавления CurRange=Nothing...на этом все стопорится

[Calvin]

Все, выкупил

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

    If CurRange Is Nothing Then
       Set CurRange = Rows( )
    Else
        Set CurRange = Union(CurRange, Rows( ))
    End If


СПАСИБО ЗА ПОМОЩЬ