Поиск первой непустой строки исключая строку заголовка

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск первой непустой строки исключая строку заголовка (Макросы/Sub)

Tarassov_Egor

Дата: Четверг, 24.06.2021, 13:01 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 20% ±

16

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

К сообщению приложен файл: 0602373.xlsx (12.0 Kb)

Сообщение отредактировал Tarassov_Egor - Четверг, 24.06.2021, 13:03

Ответить

Pelena

Дата: Четверг, 24.06.2021, 14:13 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19177

Репутация: 4417 ±

Замечаний: ±

Excel 365 & 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]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Tarassov_Egor

Дата: Пятница, 25.06.2021, 04:42 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 20% ±

16

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

Сообщение отредактировал Serge_007 - Пятница, 25.06.2021, 09:43

Ответить

Страница 1 из 1
1