VBA宏复制数据至含隐藏行工作表时如何跳过隐藏行显示全部内容？

核心思路是遍历源数据，逐个将姓名粘贴到目标工作表的可见空行，避免直接整区域粘贴覆盖隐藏行。修改后的代码如下：

Sub PasteToVisibleRows()
    Dim sourceRange As Range
    Dim cell As Range
    Dim targetSheet As Worksheet
    Dim targetRow As Long
    
    ' 设置源数据区域（A1:A10），替换成你的源工作表实际名称
    Set sourceRange = ThisWorkbook.Sheets("源工作表名称").Range("A1:A10")
    
    ' 批量处理目标工作表，可在数组中添加更多表名
    For Each targetSheet In ThisWorkbook.Sheets(Array("2", "3"))
        targetRow = 1 ' 从目标表第1行开始
        ' 遍历每个医生姓名
        For Each cell In sourceRange
            ' 跳过隐藏行，找到第一个可见行
            Do While targetSheet.Rows(targetRow).Hidden = True
                targetRow = targetRow + 1
            Loop
            ' 把姓名写入可见行
            targetSheet.Cells(targetRow, "A").Value = cell.Value
            targetRow = targetRow + 1
        Next cell
    Next targetSheet
End Sub

代码说明 #

• 抛弃Select/Paste操作：直接通过单元格对象赋值，比复制粘贴更高效，且不依赖选中状态。
• 批量处理工作表：Array("2", "3")里可以添加更多目标工作表名称，一次处理多个表。
• 强制跳过隐藏行：通过Do While循环检查当前行状态，确保每个姓名都落在可见行上。
• 注意替换源表名：把代码里的"源工作表名称"改成你存放医生姓名的实际工作表（比如Sheet1）。

替代方案（快速粘贴版） #

如果偏好复制粘贴的方式，也可以先筛选目标表的可见区域再粘贴：

Sub PasteToVisibleRange()
    Dim sourceRange As Range
    Dim targetSheet As Worksheet
    Dim targetVisibleRange As Range
    
    Set sourceRange = ThisWorkbook.Sheets("源工作表名称").Range("A1:A10")
    
    For Each targetSheet In ThisWorkbook.Sheets(Array("2", "3"))
        ' 筛选A列的可见空行区域，匹配源数据行数
        On Error Resume Next
        Set targetVisibleRange = targetSheet.Range("A:A").SpecialCells(xlCellTypeVisible) _
                                 .SpecialCells(xlCellTypeBlanks).Resize(sourceRange.Rows.Count)
        On Error GoTo 0
        
        If Not targetVisibleRange Is Nothing Then
            sourceRange.Copy
            targetVisibleRange.PasteSpecial xlPasteValues
        End If
    Next targetSheet
    
    Application.CutCopyMode = False
End Sub

这个方案用SpecialCells(xlCellTypeVisible)直接定位可见区域，适合不需要逐行精细控制的场景。

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