Если мы захотим изменить наш пример в плане, что нам цена нужна не только одного товара, но и нескольких скажем картошка, лук и апельсины, то возникнет вопрос как это сделать. Ответ это именованный диапазон. Тогда как определить его начало и конец? В том смысле где находятся цифры? Вот этим мы и займемся в этом шаге.
Создаем новую книгу и колонку A переименовываем в диапазон rrrrr.
Так как диапазон есть, теперь к нему можно применять всякие там методы. Выделяем его Range, у Range есть метод End - мол где конец или начало:-))), а у End есть адрес вообще-то говоря смотрите!!!
Sub TestRange()
Dim r As Range
Set r = Range("rrrrr")
MsgBox (r.Columns.End(xlUp).Address)
MsgBox (r.Columns.End(xlDown).Address)
End Sub
Вот теперь мы и знаем адрес первой и последней ячейки!!!. Привяжем вызов данной процедуры к нажатию кнопки.
Private Sub CommandButton1_Click()
TestRange
End Sub