Если мы захотим изменить наш пример в плане, что нам цена нужна не только одного товара, но и нескольких скажем картошка, лук и апельсины, то возникнет вопрос как это сделать. Ответ это именованный диапазон. Тогда как определить его начало и конец ? В том смысле где находятся цифры ? Вот этим мы и займемся в этом шаге.
Создаем новую книгу и колонку 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