VBA - Excel: укажите диапазон, равный одному, заданному менее одной строкой

Question

Итак, у меня есть заданная функция, которая получает диапазон (который всегда равен размеру (X, 1) - это означает, что это столбец) в качестве аргумента, что-то как:

Функция MyFunction (ByRef MyRange как Range), как двойной

...

MyFunction = материал

End Function.

Где-то внутри этой функции мне нужно обратиться к «myrange of size (X-1,1)».

Это я хочу вызвать функцию, которая должна принимать в качестве аргумента тот же самый диапазон MyRange, но вместо того, чтобы, скажем, B10: B15 Я хочу передать его B10: B14

И я понятия не имею, как это сделать это ...

Вы можете мне помочь? Спасибо,

Rui

Answer 1

Используйте Resize метод:

Function myfunction (ByVal myrange as Range) as Double 
    Set myrange = myrange.Resize(rng.Rows.Count - 1) 

Важное примечание: Я изменил свой прототип ByVal, как я модифицирования myrange.