Поиск последней строки

genechi Гость	#1 27.05.2010 15:08:19 Помогите с кодом VBA. Требуется найти последнюю строку на определенном листе в xls файле. Причем книга где искать не обязательно активна.

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#2 27.05.2010 15:13:04 уж кажный день ищем.. поиском бы.. workbooks(n).sheets(n).cells(rows.count,n).end(xlup) - последняя строка в n-ом столбце Живи и дай жить..

Guest Гость	#3 27.05.2010 15:26:22 это для активной книги...

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#4 27.05.2010 15:30:09 Вы хоть читайте, что Вам Слэн пишет: workbooks(n)

Guest Гость	#5 27.05.2010 15:51:34 Thanks...

Guest Гость	#6 27.05.2010 15:55:37 а как узнать номер последнего столбца? в аналогичной ситуации

Hugo Пользователь Сообщений: 26341 Регистрация: 22.12.2012	#7 27.05.2010 16:16:19 Range("B4").End(xlToRight).Column

Vovan RU

Пользователь

Сообщений: 425 Регистрация: 31.12.2012

27.05.2010 20:37:11

{quote}{login=}{date=27.05.2010 03:55}{thema=}{post}а как узнать номер последнего столбца? в аналогичной ситуации{/post}{/quote}
Слен писал:
workbooks(n).sheets(n).cells(rows.count,n).end(xlup) - последняя строка в n-ом столбце
аналогично:
workbooks(n).sheets(n).cells(n,Columns.Count).end(xlup) - последний стстолбец в n-ой строке

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#9 27.05.2010 21:18:36 Vovan, проверьте Ваше утверждение относительно столбцов :-) Если чего не так - попробуйте (xlToLeft)

Hugo

Пользователь

Сообщений: 26341 Регистрация: 22.12.2012

#10

27.05.2010 22:07:45

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

Sub tt()
x = Range("A1").End(xlToRight).Column
MsgBox "Первая дыра в первом ряду слева: " & x
y = Range("IV1").End(xlToLeft).Column
MsgBox "Последняя заполненная ячейка в первом ряду: " & y
End Sub

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#11 27.05.2010 22:11:18 Ну да. Хотя в вопросе "последняя"... Но в любом случае не Up

Hugo Пользователь Сообщений: 26341 Регистрация: 22.12.2012	#12 27.05.2010 22:14:14 Хотя с дырой я промахнулся - +1 надо добавить... :)

Guest

Гость

#13

27.05.2010 22:31:23

{quote}{login=Юрий М}{date=27.05.2010 09:18}{thema=}{post}Vovan, проверьте Ваше утверждение относительно столбцов :-)
Если чего не так - попробуйте (xlToLeft){/post}{/quote}
... и мышь не прошмыгнёт. :)))
Ну да, лоханулся, не докопировал у себя.
У меня в частном случае работает такая строка
iLastColumn = Workbooks("GasIA").Sheets("БД").Cells(1, Columns.Count).End(xlUp).Column
т.е. надо было написать
workbooks(n).sheets(n).cells(n,Columns.Count).end(xlup).Column
Извиняюсь.
Юрий, спасибо. :)

Vovan RU Пользователь Сообщений: 425 Регистрация: 31.12.2012	#14 27.05.2010 22:32:13 эт был я...

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#15 27.05.2010 22:37:01 Vovan RU, опять чуть-чуть не так. Поменяйте (xlup) на (xlToLeft)

Vovan RU Пользователь Сообщений: 425 Регистрация: 31.12.2012	#16 27.05.2010 22:43:12 {quote}{login=Юрий М}{date=27.05.2010 10:37}{thema=}{post}Vovan RU, опять чуть-чуть не так. Поменяйте (xlup) на (xlToLeft){/post}{/quote} Вопрос из азов, я так понимаю, но можно прокомментировать, Юрий. Ставил и так и этак - работает.

Vovan RU Пользователь Сообщений: 425 Регистрация: 31.12.2012	#17 27.05.2010 22:44:55 Это вопрос был :)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#18 27.05.2010 22:47:50 Ну как она работает? x= Cells(1, Columns.Count).End(xlUp).Column покажет последний столбец на листе (255) x= Cells(1, Columns.Count).End(xlToLeft).Column покажет последний заполненный.

Vovan RU Пользователь Сообщений: 425 Регистрация: 31.12.2012	#19 27.05.2010 23:01:28 {quote}{login=Юрий М}{date=27.05.2010 10:47}{thema=}{post}Ну как она работает? x= Cells(1, Columns.Count).End(xlUp).Column покажет последний столбец на листе (255) x= Cells(1, Columns.Count).End(xlToLeft).Column покажет последний заполненный.{/post}{/quote} Ну да, Вы как всегда правы, Юрий! А я думаю: чего-то у меня работают два варианта одинаково? Вот почему: If Sheets("БД").Cells(1, i) <> "" Then Еще раз БОЛЬШОЕ СПАСИБО!

Читают тему