Задать диапазон ограниченый номерами строк и столбов

[Severny]

Добрый день!
Подскажите пожалуйста, как задать диапазон ячеек который ограничен номерами строк и столбцов?

[SAS888]

Например, диапазон строк от r1 до r2 в диапазоне столбцов от c1 до c2 можно задать так:

Dim r1 As Long, r2 As Long, c1 As Long, c2 As Long, rng As Range
r1 = 10: r2 = 20: c1 = 5: c2 = 10
Set x = Range(Cells(r1, c1), Cells(r2, c2))
x.Select 'для наглядности

[Казанский]

Варианты

Set x = Cells(r1, c1).Resize(r2 - r1 + 1, c2 - c1 + 1)

Set x = Range(Application.ConvertFormula("R" & r1 & "C" & c1 & ":R" & r2 & "C" & c2, xlR1C1, xlA1))

[Severny]

SAS888, Казанский Спасибо вам!
SAS888 А почему вы взяли для чисел тип данных Long?

[SAS888]

А почему вы взяли для чисел тип данных Long?

Потому, что, во-первых, номер строки может быть больше, чем 32768, т.е. типа integer не достаточно. Во-вторых, мне не известно, каким образом Вы получаете значения переменных r и c.

Варианты, предложенные уважаемым Казанским рабочие, но 1-й требует дополнительных расчетов и обязательного выполнения условий r2 > r1 и c2 > c1, за которыми нужно следить. А 2-й вместо расчетов содержит несколько операторов конкатенации, которые медленные. Да, и зачем что-то вычислять, когда можно обойтись и без этого?

[Severny]

Спасибо Вам!