需要将已排序的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列的可见单元格。