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

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

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

Поиск первой непустой строки исключая строку заголовка (Макросы/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

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

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

Сообщений: 19404

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

Замечаний: ±

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]