Как получить в VBA номера строк выделенного диапазона?

[Chelentano]

Всем добрый день! Ситуация: пользователь выделил диапазон ячеек (например R5C1:R15C1 или R10C2:R20C5) Буду оч благодарен за подсказку, какая конструкция в VBA может определить номер самой верхней и самой нижней строки выделенного диапазона? (т.е. нужно получить 5 и 15 (10 и 20) для первого (второго) случая.

[The_Prist]

lRow = Selection.Row'первая строка
lLastrowInSelectedRange = Selection.Row + Selection.Rows.Count - 1'последняя строка

[Chelentano]

Prist, thanx so much!

Хотел ещё уточнить такой вопрос: а как передать полученные номера строк в метод Rows().Delete? Я сделал такое:

Rows("Selection.Row : Selection.Row + Selection.Rows.Count -1").Delete shift:=xlUp

и у меня выдается сообщение что Type Mismatch. Спасибо большое заранее!

[The_Prist]

Надо либо так

Rows(Selection.Row&":"&Selection.Row + Selection.Rows.Count -1).Delete shift:=xlUp

либо так

Range(cells(Selection.Row,1),cells(Selection.Row + Selection.Rows.Count -1,1)).EntireRow.Delete

либо так

Range("A"&Selection.Row&":A"&Selection.Row + Selection.Rows.Count -1,1)).EntireRow.Delete

[Chelentano]

Prist, спасибо огромное снова! :-) Но почему-то сработал только второй вариант, там где нет сцеплений подстрок. В первом варианте VBA ругнулся на ":"

Rows(Selection.Row&":"&Selection.Row + Selection.Rows.Count -1).Delete shift:=xlUp

А в третьем - на ":A":

Range("A"&Selection.Row&":A"&Selection.Row + Selection.Rows.Count -1,1)).EntireRow.Delete

[EducatedFool]

Сообщение от The_Prist

Надо либо так

либо так

либо так

Зачем усложнять?
Если человек хочет удалить строки, в которых выделены ячейки, то проще всего так:
Selection.EntireRow.Delete

[SAS888]

Потому, что в первом и третьем вариантах знак "&" должен быть отделен пробелами.
А вообще-то, почему Вас не устраивает удаление строк выделенного диапазона сразу, без определения первой и последней строк? Например, так:

Selection.EntireRow.Delete

[Serge_Bliznykov]

сорри за флуд...

Сегодня, 04:54

EducatedFool
SAS888
одновременно! БРАВО!!!!

[Chelentano]

Сообщение от SAS888

А вообще-то, почему Вас не устраивает удаление строк выделенного диапазона сразу, без определения первой и последней строк? Например, так:

Selection.EntireRow.Delete

Ой, спасибо большое! Извиняюсь за изначально не полностью поставленный вопрос и я также будучи новичком не знал, что все строки, покрываемые выделенным диапазоном можно удалить через Selection.EntireRow

[Roma_oryol]

Здраствуйте всем!
Я заранее извиняюсь, может быть это не по этой теме.

Хочю скрыть строки, написал вот это:

n = 6
n1 = 200
list.Rows(n & " , " & n1).Hidden = True

.....не работает, скрывает только первую строку