Дата публикации: 07-10-2026 08:53:06

Скопировать определенное количество отфильтрованных ячеек в форуме Вопросы по Microsoft Excel.
Добрый день!Помогите, пожалуйста, исправить код
====code====
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
            Cells(ActiveCell.Row, 1).Resize([H8]).Select
            Selection.Copy
        End If
End Sub
=============
В ячейке Н8 указано количество ячеек столбца А (например 25), которые нужно скопировать (от активной вниз).Но если включен фильтр, то копирует видимые с учетом скрытых (например если скрыто 13, то скопирует 12 видимых).Необходимо скопировать не 12, а 25 видимых.
07.10.2026 11:53:06, evg_glaz.

Основное содержимое страницы с новостью.

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
            Cells(ActiveCell.Row, 1).Resize([H8]).Select
            Selection.Copy
        End If
End Sub

Схожие новости