Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Самая последняя пустая строка
 
#1
18.12.2012 09:31:49
Здравствуйте.  
Столкнулся с проблемой поиска самой последней пустой строки в таблице. Есть таблица и в ней есть пустые строки, но они нужны для дальнейшей работы. На форуме посмотрел темы, но они в основном просто поиска пустой строки. Подскажите кто знает, как макросом найти самую последнюю строку.  
Заранее спасибо.
 
 
 
#2
18.12.2012 09:44:18
Cells(Rows.Count, 1).End(xlUp).Row  ищет последнюю заполненную ячейку 1-ого столбца. Т.к это последняя заполненная ячейка значит за ней пустая, соответственно  
Cells(Rows.Count, 1).End(xlUp).Row + 1
 
 
 
#3
18.12.2012 09:48:55
Самой последней пустой будет Rows.Count. Если повезет;-)
Я сам - дурнее всякого примера! ...
 
 
 
#4
18.12.2012 09:54:18
V, спасибо за ответ.    
Но бывает так, что последняя ячейка строки может быть пустой. Желательно, анализировать хотя-бы 30-40 ячеек в строке.
 
 
 
#5
18.12.2012 13:19:40
Нашел макрос поиска первой пустой строки.  
Sub Макрос()  
For i = 1 To 150000  
If Cells(i, 1).Interior.ColorIndex = xlNone _  
And Application.WorksheetFunction.CountBlank(Range(Cells(i, 1), Cells(i, 50))) = 50 Then  
Cells(i, 1).Select  
Exit Sub  
End If  
Next  
End Sub  
Подскажите новичку, как и где изменить строки макроса для поиска самой последней пустой строки.
 
 
 
#6
18.12.2012 13:45:53
Имхо, "Пустая строка" - понятие растяжимое... как минимум два варианта:  
- нет значений в каком-то определенном столбце;  
- нет значений в строке вообще.  
Вам что надо?
 
 
 
#7
18.12.2012 13:46:49
Попробуйте ещё такой вариант от KukIP:    
LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row  
P.S. Серж, промоушн засчитан?
 
 
 
#8
18.12.2012 13:48:07
Михаил, скорее всего проблемы с формулировкой: есть сильное подозрение, что разговор о последней заполненной :-)
 
 
 
#9
18.12.2012 13:53:26
Юрий М прав. Речь идет о последней заполненной строке.
 
 
 
#10
18.12.2012 13:54:28
Да, Юр. Спасибо(или спасибо мало?:-)).
Я сам - дурнее всякого примера! ...
 
 
 
#11
18.12.2012 15:17:52
Пытался прописать предложенную строку в макрос. Пока не получается. Все равно макрос находит первую пустую строку. Подскажите как правильно прописать. Спасибо.
 
 
 
#12
18.12.2012 15:25:01
Владлен, читаем Правила, пример в студию. И в примере руками указываем, какую строку должен найти макрос.
Я сам - дурнее всякого примера! ...
 
 
 
#13
18.12.2012 15:42:35
Во вложенном файле - часть таблицы с пустыми строками. К сожалению, макрос не перемещает курсор вниз таблицы. Для примера: курсор должен быть на 26 строке таблицы после выполнения макроса. Спасибо.
 
 
 
#14
18.12.2012 15:52:14
Совет от Юрий М:  
Public Sub www()  
LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row  
Rows(LastRow + 1).Select  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#15
18.12.2012 16:28:36
Совет от Юрий М дельный. Макрос работает.    
При проверке на большой таблице выяснилось, что строки могут быть не только пустыми (без заливки), но и могут быть окрашены в разные цвета. К сожалению, данный макрос не замечает заливку строк другими цветами. Прошу прощения, что не указал это раньше.
 
 
 
#16
18.12.2012 19:03:52
KukLP, подскажите как  подкорректировать макрос, чтобы он считал закрашенные строки (даже если в ячейках текущей строки нет данных)как заполненные. Спасибо.
 
 
 
#17
18.12.2012 19:19:56
А при чем заливка к содержимому ячейки? Вам хорошо конфеты продавать. Поштучно. Продал 10000 фантиков и разбогател.    
Эксел предназначен для обработки ДАННЫХ. А цвет заливки к этой категории не принадлежит. Начинайте циклом в цикле с последней ячейки листа проверять все(во всех столбцах и строках) на заливку и быстро поймете, какой это идиотизм. Тут я Вам не помощник.
Я сам - дурнее всякого примера! ...
 
 
 
#18
18.12.2012 19:47:02
Владлен, пройдите по этой ссылке: <BR> http://www.planetaexcel.ru/forum.php?thread_id=8203&page_forum=1&allnum_forum=45
 
 
 
Страницы: 1
Читают тему
Наверх