Непоследовательный диапазон

Question

Могу ли я установить Range Range равным множеству непоследовательных ячеек? Я хочу, чтобы мой диапазон был равен ячейкам A1, A3, A5 и т. Д., Где я могу выбирать строки и столбцы по своему желанию.

Answer 1

Конечно, например, это выбирает довольно случайный набор ячеек:

Range("A1:C8,E13:G21,C20:D26,L13:N22").Select

и это выбирает ячейки, которые вы упомянули:

Range("A1,A3,A5").Select

Вы также можете комбинировать Range объекты с помощью метода Union .

Answer 2

С MSDN :

Метод объединения

Используйте Union (range1, range2, ...) для возврата диапазонов нескольких областей, то есть диапазонов, состоящих из двух или более смежных блоков ячеек. В следующем примере создается объект, определенный как объединение диапазонов A1: B2 и C3: D4, а затем выбирается определенный диапазон.

Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
Worksheets("sheet1").Activate
Set r1 = Range("A1:B2")
Set r2 = Range("C3:D4")
Set myMultiAreaRange = Union(r1, r2)