ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать номер последней строки в Excel с символом № в VBA
16 сообщений из 16, страница 1 из 1
Как узнать номер последней строки в Excel с символом № в VBA
    #36471233
Vadiks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vadiks
Гость
Доброго всем дня.
Помогите.
Пишу цикл, но для того, что бы цикл окончил работу мне нужно знать номер
последней строки с символом №

Прикрепляю исходник...Удалять пустые строки нельзя...


Заранее спасибо!
...
Рейтинг: 0 / 0
15.02.2010, 23:05
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36471241
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dophin
Гость
Vadiks,

плохой исходник, очень плохой
...
Рейтинг: 0 / 0
15.02.2010, 23:10
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36471242
Vadiks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vadiks
Гость
Извени, прошляпил...щас исправлюсь...
...
Рейтинг: 0 / 0
15.02.2010, 23:11
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36471244
Vadiks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vadiks
Гость
Вот...
...
Рейтинг: 0 / 0
15.02.2010, 23:12
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36471283
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dophin
Гость
Также циклом и ищите. в чем проблема?

Sub pp()
Dim iLastRow As Integer, i As Integer, k As Integer
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To iLastRow
If Left(Cells(i, 1), 1) = "№" Then
k = i
End If
Next i
MsgBox "Последняя строка с № - " & k

End Sub
...
Рейтинг: 0 / 0
15.02.2010, 23:33
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36471290
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dophin
Гость
Sub pp()
Dim iLastRow As Integer, i As Integer
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = iLastRow To 1 Step -1
If Left(Cells(i, 1), 1) = "№" Then
MsgBox "Последняя строка с № - " & i
Exit For
End If
Next i
End Sub


так оптимальней
...
Рейтинг: 0 / 0
15.02.2010, 23:35
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36471341
Vadiks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vadiks
Гость
Dophin, Спасибо. Работает.
Очень помог, я столкнулся с VBA неделю назад.(вообщем с программированием)
И честно говоря, то что я хочу сделать, если конечно получится...
сам буду в шоке...
файл в нужный вид я уже преобразовал, макрос трудится где то около 5 минут...
Теперь самое сложное, вывод на экран нужной информации...


Очень надеюсь на Вашу поддержку...
Еще раз Спасибо!!!
...
Рейтинг: 0 / 0
16.02.2010, 00:07
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36471380
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Vadiksмакрос трудится где то около 5 минут... Процедура с временем выполнения 5 минут должна выполнять весьма трудоёмкую задачу... Вы обновление экрана отключали (Application.screenupdating=false)? Кроме того, есть ещё достаточно возможностей оптимизации кода.
...
Рейтинг: 0 / 0
16.02.2010, 00:33
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36471732
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dophin
Гость
Vadiks,

Мы Вас поддерживаем )


а 5 минут - либо реально дофига, либо крайне неоптимизированно

у Вас там случае нету конструкций?

...Select
With Selection
....
...
Рейтинг: 0 / 0
16.02.2010, 09:48
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36471915
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Vadiksгде то около 5 минут...удаляйте файл и делайте заново =)
...
Рейтинг: 0 / 0
16.02.2010, 10:59
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36472767
Vadiks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vadiks
Гость
Dophin,

Конечно пять минут это очень много, конструкции нет...
просто строк у файла. 60 000. И три цикла Goto которые перелапачивают эти 60 000
а за обновление экрана не знал, спасибо.
А включается он потом как?
...
Рейтинг: 0 / 0
16.02.2010, 15:34
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36472838
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Vadiksтри цикла Goto...Желательно избегать безусловных переходов
VadiksА включается он потом как?...= true
...
Рейтинг: 0 / 0
16.02.2010, 15:55
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36472854
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Vadiksпросто строк у файла. 60 000. И три цикла Goto которые перелапачивают эти 60 000циклами For-Next 60000 строк не обрабатывают. в зависимости от задачи или sql-запросами, или встроенными ф-циями excel. например, поиск циклом - откровенная глупость, когда есть встроенный в excel поисковик, работающий в разы быстрее.
...
Рейтинг: 0 / 0
16.02.2010, 15:59
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36472858
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dophin
Гость
Vadiks,

Application.ScreenUpdating = True
...
Рейтинг: 0 / 0
16.02.2010, 16:00
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36473914
Vadiks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vadiks
Гость
vlth,
Goto включается If (условие)Then Goto start Else Goto finish
...
Рейтинг: 0 / 0
17.02.2010, 01:29
| Ответить | Цитировать | Написать  
Как узнать номер последней строки в Excel с символом № в VBA
    #36473940
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Vadiks, крайне желательно создавать конструкции без GoTo: его использование считается в программировании "дурным тоном", поскольку затрудняет восприятие кода и его отладку. Его применение допускается для быстрого, в обход ветвлений, выхода в конец процедуры, скажем.
...
Рейтинг: 0 / 0
17.02.2010, 02:06
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать номер последней строки в Excel с символом № в VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=170&tid=2178475]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 68ms
get tp. blocked users:
 2ms
others: 206ms
total:  382ms
созд. / загр.: 382ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]