Excel VBA隐藏行后复制数据，如何避免复制隐藏行？

嘿，这个问题我太熟了——Excel默认复制会包含整个选中区域，哪怕行被隐藏了，所以才会把隐藏行也粘过去。给你两种实用的解决方案，按需选就行：

方案1：手动快速复制仅可见单元格 #

如果你不想改动现有代码，每次复制时按这个步骤来：

• 选中你需要复制的目标数据区域
• 按下快捷键 Alt+;（这是Excel内置的快速选中仅可见单元格的快捷键）
• 再执行复制粘贴操作，这样就只会复制显示出来的行，隐藏的行完全不会被带过去

方案2：修改VBA代码，实现自动化处理 #

如果想让整个流程更省心，不用手动操作，可以把隐藏行和复制可见行的逻辑整合到一个宏里。下面是修改后的完整代码，你可以直接用：

Sub cleanupAndCopyVisibleRows()
    Dim BeginRow As Long, EndRow As Long, ChkCol As Long
    Dim sourceRange As Range
    Dim targetSheet As Worksheet
    
    ' 这里保留你原来的参数设置
    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
    
    ' 第二步：定义要复制的源数据范围（这里假设是从A列到ChkCol列，可根据实际调整）
    Set sourceRange = Range(Cells(BeginRow, 1), Cells(EndRow, ChkCol))
    
    ' 指定目标工作表，把"Sheet2"改成你实际要粘贴的工作表名称
    Set targetSheet = ThisWorkbook.Worksheets("Sheet2")
    
    ' 仅复制可见单元格到目标表的A1位置（可修改目标起始单元格）
    sourceRange.SpecialCells(xlCellTypeVisible).Copy targetSheet.Range("A1")
End Sub

关键细节说明： #

• SpecialCells(xlCellTypeVisible) 是核心，它会精准筛选出区域内所有可见的单元格，确保复制的只有显示的行
• 如果你不需要自动粘贴，只是想让后续手动复制更方便，可以把最后一行替换成 sourceRange.SpecialCells(xlCellTypeVisible).Select，执行宏后直接复制选中的内容就行

另外提个小技巧：粘贴时如果担心格式问题，右键选择**"粘贴值"或者"保留源格式"**，能避免不必要的格式错乱，但只要用了仅可见单元格复制，粘贴内容肯定是你要的显示行数据。

内容的提问来源于stack exchange，提问作者shahab