VBA复制选中合并行至新工作簿：忽略隐藏列与排序问题求助

问题1：复制顺序颠倒的解决 #

原代码按控件集合默认顺序遍历复选框，导致输出顺序和行号不一致。解决核心是按行号从前往后遍历S列的复选框，确保勾选行按从上到下的顺序复制。

问题2：忽略隐藏列的解决 #

不能直接复制整行，需先提取当前行的可见列区域，仅复制这些可见单元格到新工作簿。借助SpecialCells(xlCellTypeVisible)可精准筛选可见列。

修正后的完整代码 #

Sub CopyCheckedRows()
    Dim wsSource As Worksheet
    Dim wbNew As Workbook
    Dim wsNew As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim targetRow As Long
    Dim visibleRange As Range
    
    ' 指定源工作表（根据实际表名修改）
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    lastRow = wsSource.Cells(wsSource.Rows.Count, "S").End(xlUp).Row
    
    ' 创建新工作簿及工作表
    Set wbNew = Workbooks.Add
    Set wsNew = wbNew.Worksheets(1)
    targetRow = 1 ' 新表数据起始行
    
    ' 按行号升序遍历，确保复制顺序正确
    For i = 2 To lastRow ' 假设表头在第1行，从第2行开始遍历数据行
        ' 匹配当前行S列的复选框（需和你的控件命名规则对应）
        If TypeName(wsSource.Shapes("CheckBox" & i)) = "CheckBox" Then
            If wsSource.Shapes("CheckBox" & i).ControlFormat.Value = xlOn Then
                ' 提取当前行的可见列区域
                Set visibleRange = wsSource.Rows(i).SpecialCells(xlCellTypeVisible)
                
                ' 复制可见区域到新表，保留值、格式
                visibleRange.Copy
                wsNew.Cells(targetRow, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                wsNew.Cells(targetRow, 1).PasteSpecial Paste:=xlPasteFormats
                
                targetRow = targetRow + 1
            End If
        End If
    Next i
    
    ' 清除剪贴板，释放资源
    Application.CutCopyMode = False
    MsgBox "复制完成！", vbInformation
End Sub

关键说明 #

1. 顺序修正：通过For i = 2 To lastRow按行号从小到大遍历，直接对应S列每行的复选框（假设控件命名为CheckBox+行号），确保勾选的1、2、3、4行按顺序输出。如果你的控件命名规则不同，需修改wsSource.Shapes("CheckBox" & i)中的命名匹配逻辑。
2. 隐藏列处理：Rows(i).SpecialCells(xlCellTypeVisible)精准提取当前行的可见单元格，仅复制这些内容，彻底跳过隐藏列。

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