VBNet - Форум - опять про выделение диапазона

Вопрос: опять про выделение диапазона Добавлено: 28.10.08 08:36

Автор вопроса: Summer | ICQ: 373-940-353

как выделять диапазон я знаю, так же об этом тут уже писалось.

а вот как выделить, допустим, строки от 5-ой и до последней не пустой включительно?

пытался через алгоритм типа: найти последнюю - записать в переменную - выделить до неё. Но что-то это не работает. Да и, наверное, кто-то проще метод знает.

Заранее спасибо за помощь.
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Шпион ICQ: 250543104 Вопросов: 13 Ответов: 118	Профиль \| \| #1	Добавлено: 28.10.08 08:42
	Dim i As Long For i=1 to 65535 If Range("A" & Ltrim(str(i)))="" Then i=i-1:exit For Next i Range("A1:A" & ltrim(str(i))).Select Можно так Ответить

Номер ответа: 2 Автор ответа: Summer ICQ: 373-940-353 Вопросов: 2 Ответов: 4	Профиль \| \| #2	Добавлено: 28.10.08 09:23
	спасибо большое, очень удобно оказалось. ) можно как и столбец (в примере выше) выделить, несколько столбцов, ну и так далее. Ответить

Номер ответа: 3 Автор ответа: Summer ICQ: 373-940-353 Вопросов: 2 Ответов: 4	Профиль \| \| #3	Добавлено: 28.10.08 10:08
	еще вопрос родился: можно ли в таком виде выделить диапазон от и до последней выделенной ячейки? Т.е. у меня выделен диапазон, и вот этом диапазоне мне надо выбрать в столбце от и до последней выделенной. Selection.AutoFill Destination:=Range("R3сюда вот это воткнуть...)" Ответить

Номер ответа: 4 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #4	Добавлено: 01.11.08 15:34
	Dim iRow As Integer iRow = Columns("A".Rows(65536).End(xlUp).Row Range("A5:A" & iRow).Select Ответить

Страница: 1 |