Подскажите, пожалуйста код

[Romuald]

Добрый день!
Подскажите, пожалуйста код :
Выделить диапазон , в колонке В ,начиная с В9 до первой пустой
Заранее спасибо

[Alkaline]

Например, вот так:

Sub Macro1()
Range("b9").Select
Range(Selection, Selection.End(xlDown)).Select
End Sub


Вообще, например, руками это делается так: встать на В9 и нажать комбинацию Ctrl+Shift+Стрелка Вниз. Соответственно, эти два действия можно записать с помощью стандартного средства автоматической записи макроса.

Возможны и другие варианты...

[Romuald]

До первой п у с т о й

[Romuald]

Спасибо
Мне нужно выбрать диапазон д о п е р в о й п у с т о й

[Alkaline]

В русском языке нормативно не закреплено, включать ли в диапазон границу, но чаще "до" используется как "не включая", а "по" - включая.

Если нужно включить одну пустую ячейку, то так:

Sub Proc()

Cells(9, 2).Activate
Selection.End(xlDown).Select
Cells(ActiveCell.Row + 1, 2).Select
Range(Cells(9, 2), Selection).Select

End Sub


Если свернуть:

Sub Shorter()

Cells(9, 2).Activate
Range(Cells(9, 2), Cells(Selection.End(xlDown).Row + 1, 2)).Select

End Sub

[Romuald]

Спасибо
но мне надо выделить диапазон не включая первую пустую

[Pavel55]

Sub Макрос1()
    Range(Cells(9, 2), Cells(Cells(9, 2).End(xlDown).Row, 2)).Select
End Sub

[Alkaline]

Romuald, ты вообще первый мой вариант хоть попробовал? Не экономь слова.

[Romuald]

Спасибо огромное !!