Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Последняя заполненная ячейка в столбце отфильтрованного листа
 
#1
18.12.2012 08:01:51
В листе применяется автофильтр.  
Как мне получить данные о номере строки последней заполненной ячейки столбца А    
(Именно ячейки, в которой содержатся данные, а не форматирование; и именно получить абсолютный номер строки, а не её последовательный номер в отфильтрованном списке).
 
 
 
#2
18.12.2012 08:09:51
Cells(Rows.Count, 1).End(xlUp).Row
Я сам - дурнее всякого примера! ...
 
 
 
#3
20.12.2012 23:47:23
Я извиняюсь, но это не работает. Заполните первые десять ячеек первого столбца значениями от 1 до 10. Поставьте автофильтр на верхнюю ячейку. Задайте фильтрацию <5 - отберётся первые четыре строки (значения от 1 до 4). При предложенном Вами макросе будет выдано значение 4, а мне надо 10, т.е. абсолютное значение последней, пусть и скрытой автофильтром, строки на листе. Как это сделать? Уже неделю бьюсь и не могу ничего придумать (кроме как топорно снимать автофильтр на время работы макроса, а потом его заново устанавливать).
 
 
 
#4
20.12.2012 23:52:39
Вот как раз для этого в Правилах есть п.3. А без примера я ответил Вам так, как понял Ваш вопрос.
Я сам - дурнее всякого примера! ...
 
 
 
#5
21.12.2012 00:08:57
=ПОИСКПОЗ(9^9;A1:A10;1)  
Так?
excel 2010
 
 
 
#6
21.12.2012 01:00:14
Вроде бы так. А как это представить в макросе?
 
 
 
#7
21.12.2012 01:19:14
Так вы в макросе сначала найдите эту последнюю  
строку, как подсказал KukLP, а затем ставьте фильтр
 
 
 
#8
21.12.2012 01:38:13
Можно и с фильтром:  
   With ActiveSheet.AutoFilter.Range  
       Debug.Print .Rows.Count + .Row - 1  
   End With
Я сам - дурнее всякого примера! ...
 
 
 
#9
21.12.2012 01:40:23
Вариант:  
   With ActiveSheet.UsedRange  
       For i = .Rows.Count + .Row - 1 To 1 Step -1  
           If Cells(i, 1) <> "" Then Debug.Print i: Exit Sub  
       Next  
   End With
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Наверх