Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск первой непустой строки исключая строку заголовка - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск первой непустой строки исключая строку заголовка (Макросы/Sub)
Поиск первой непустой строки исключая строку заголовка
Tarassov_Egor Дата: Четверг, 24.06.2021, 13:01 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 20% ±

Добрый день!
Необходимо найти первую строку после заголовка, НЕ ИСКЛЮЧАЯ скрытые строки.
Приложил пример, там стоит фильтр по коду товара, так вот нужно скопировать строки на другой лист исключив копирование скрытых строк между ними (в примере это строки 95 и 104)
Последнюю строку то знаю как искать, а вот с первой с учетом фильтра чет не пойму как.
Спасибо заранее
К сообщению приложен файл: 0602373.xlsx(12.0 Kb)


Сообщение отредактировал Tarassov_Egor - Четверг, 24.06.2021, 13:03
 
Ответить
СообщениеДобрый день!
Необходимо найти первую строку после заголовка, НЕ ИСКЛЮЧАЯ скрытые строки.
Приложил пример, там стоит фильтр по коду товара, так вот нужно скопировать строки на другой лист исключив копирование скрытых строк между ними (в примере это строки 95 и 104)
Последнюю строку то знаю как искать, а вот с первой с учетом фильтра чет не пойму как.
Спасибо заранее

Автор - Tarassov_Egor
Дата добавления - 24.06.2021 в 13:01
Pelena Дата: Четверг, 24.06.2021, 14:13 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17793
Репутация: 3958 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
На мой взгляд, Вы усложняете задачу. Если надо просто скопировать, то берите со второй строки до последней. Метод Copy работает с видимыми строками
[vba]
Код
Sub CopyVisible()
    lrow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A2:C" & lrow).Copy Sheets(2).Range("A1")
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
На мой взгляд, Вы усложняете задачу. Если надо просто скопировать, то берите со второй строки до последней. Метод Copy работает с видимыми строками
[vba]
Код
Sub CopyVisible()
    lrow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A2:C" & lrow).Copy Sheets(2).Range("A1")
End Sub
[/vba]

Автор - Pelena
Дата добавления - 24.06.2021 в 14:13
Tarassov_Egor Дата: Пятница, 25.06.2021, 04:42 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 20% ±

Спасибо) Действительно усложняю)


Сообщение отредактировал Serge_007 - Пятница, 25.06.2021, 09:43
 
Ответить
СообщениеСпасибо) Действительно усложняю)

Автор - Tarassov_Egor
Дата добавления - 25.06.2021 в 04:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск первой непустой строки исключая строку заголовка (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!