нужно скопировать отсортированные данные Excel на другой лист

Question

У меня есть Excel с данными на нем.Есть несколько клеток, которые пусты.Я использую следующий код для сортировки данных, чтобы показать только строки с заполненными в них данными.

Проблема заключается в том, что при попытке скопировать и вставить данные на другой лист отсортированные / скрытые строки также копируются и вставляются,Как я могу это предотвратить?

Sub cleanup2()
    BeginRow = 8
    EndRow = 1220
    ChkCol = 52

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = 31 Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
End Sub

Answer 1

Используйте .SpecialCells(xlCellTypeVisible), чтобы получить только видимые ячейки.

Например:

Range("A:A").SpecialCells(xlCellTypeVisible).Copy

копирует только видимые ячейки столбца A.