Excel宏开发需求：基于布尔值筛选并复制指定列数据至另一工作表

以下是针对需求的具体实现代码，适合有基础Excel经验的用户快速上手：

完整VBA代码 #

Sub ExportFilteredData()
    Dim srcSheet As Worksheet, destSheet As Worksheet
    Dim lastRow As Long, i As Long, colIndex As Long
    Dim targetCols As Collection, destRow As Long
    Dim chkBox As Shape
    
    ' 定义源表和目标表（根据实际表名修改）
    Set srcSheet = ThisWorkbook.Sheets("Sheet1")
    Set destSheet = ThisWorkbook.Sheets("Sheet2")
    Set targetCols = New Collection
    
    ' 固定添加C列和Description列（假设Description列为N列，根据实际修改）
    targetCols.Add 3 ' C列对应第3列
    targetCols.Add 14 ' 假设Description是N列，对应第14列
    
    ' 读取复选框状态，添加选中的日期列
    ' 假设chkMonday对应D列（第4列），chkTuesday对应E列（第5列），自行修改对应关系
    For Each chkBox In srcSheet.Shapes
        Select Case chkBox.Name
            Case "chkMonday"
                If chkBox.ControlFormat.Value = 1 Then targetCols.Add 4
            Case "chkTuesday"
                If chkBox.ControlFormat.Value = 1 Then targetCols.Add 5
            Case "chkWednesday"
                If chkBox.ControlFormat.Value = 1 Then targetCols.Add 6
            Case "chkThursday"
                If chkBox.ControlFormat.Value = 1 Then targetCols.Add 7
            Case "chkFriday"
                If chkBox.ControlFormat.Value = 1 Then targetCols.Add 8
            Case "chkSaturday"
                If chkBox.ControlFormat.Value = 1 Then targetCols.Add 9
            Case "chkSunday"
                If chkBox.ControlFormat.Value = 1 Then targetCols.Add 10
        End Select
    Next chkBox
    
    ' 获取源表O列最后一行数据位置
    lastRow = srcSheet.Cells(srcSheet.Rows.Count, "O").End(xlUp).Row
    destRow = 2 ' 目标表从L2开始，对应行号2
    
    ' 遍历数据行（从第9行开始）
    For i = 9 To lastRow
        ' 筛选O列值为1的行
        If srcSheet.Cells(i, "O").Value = 1 Then
            ' 写入目标表L列起始位置
            For colIndex = 1 To targetCols.Count
                destSheet.Cells(destRow, 11 + colIndex).Value = srcSheet.Cells(i, targetCols(colIndex)).Value
            Next colIndex
            destRow = destRow + 1
        End If
    Next i
    
    MsgBox "数据导出完成！"
End Sub

关键说明 #

• 表名与列号修改：代码中srcSheet、destSheet的表名，以及Description列的列号、复选框对应的日期列号，需要根据你的实际表格结构调整
• 复选框类型适配：如果使用的是ActiveX复选框（而非窗体控件），将chkBox.ControlFormat.Value改为srcSheet.OLEObjects(chkBox.Name).Object.Value
• 高效写入逻辑：采用单元格直接赋值替代复制粘贴，避免剪贴板冲突，运行速度更快
• 自动边界识别：自动识别O列的最后一行数据，无需手动指定数据范围

使用步骤 #

1. 打开Excel，按Alt+F11打开VBA编辑器
2. 在左侧工程窗口右键点击目标工作簿，选择「插入」→「模块」
3. 将代码粘贴到模块中，修改对应表名和列号
4. 返回Excel，按Alt+F8选择ExportFilteredData宏执行

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