如何按条件将Excel指定工作表特定列数据复制到另一工作表并自动追加

好的，针对你的需求，我给你两种实用方案：一种是适合新版Excel的动态数组函数方案（简单易上手，无需编程），另一种是VBA宏方案（支持所有Excel版本，能自动处理新增数据），你可以根据自己的情况选择。

方案一：动态数组函数（Excel 365/2021 适用） #

如果你使用的是Excel 365或2021版本，FILTER+CHOOSECOLS组合完全能满足你的需求，而且是动态扩展的——Sheet1新增符合条件的数据时，Sheet2会自动同步更新，还能精确指定要复制的列。

操作步骤： #

1. 打开Sheet2，选中你要开始粘贴数据的第一个单元格（比如A1）。
2. 输入以下公式（根据你的实际列需求调整数字）：

=FILTER(CHOOSECOLS(Sheet1!$1:$10000, 1,2,3,5), Sheet1!$2:$2<>"")

公式解释： #

• CHOOSECOLS(Sheet1!$1:$10000, 1,2,3,5)：从Sheet1的前10000行中，精确选取第1、2、3、5列（你可以修改括号里的数字来指定要复制的列，比如要选第1、4、5列就改成1,4,5；$1:$10000是覆盖的行数，可根据数据量调整）。
• Sheet1!$2:$2<>""：筛选条件——只保留Sheet1第2列（B列）不为空的行。
• FILTER：自动返回所有符合条件的行，并且会动态扩展，不需要手动下拉填充。

注意事项： #

• 这个方案不需要担心循环引用，因为是动态数组公式，Excel会自动处理范围。
• 如果你不需要表头，可以把Sheet1!$1:$10000改成Sheet1!$2:$10000，跳过第一行表头。

方案二：VBA宏方案（支持所有Excel版本，可自动触发） #

如果你用的是旧版Excel（不支持动态数组），或者希望数据新增时自动同步，那宏方案更适合你。你说能理解代码并调整，下面是一个简单的宏代码，完全贴合你的需求：

基础宏代码（手动运行） #

Sub CopyFilteredRows()
    ' 定义源工作表和目标工作表
    Dim wsSource As Worksheet, wsDest As Worksheet
    ' 记录源表和目标表的最后一行
    Dim lastRowSource As Long, lastRowDest As Long
    Dim i As Long
    
    ' 替换成你的实际工作表名称
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsDest = ThisWorkbook.Worksheets("Sheet2")
    
    ' 找到Sheet1第2列的最后一行数据
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, 2).End(xlUp).Row
    ' 找到Sheet2第1列的最后一行数据
    lastRowDest = wsDest.Cells(wsDest.Rows.Count, 1).End(xlUp).Row
    
    ' 如果Sheet2是空表，从第1行开始粘贴
    If lastRowDest = 1 And wsDest.Cells(1, 1).Value = "" Then
        lastRowDest = 0
    End If
    
    ' 遍历Sheet1的每一行
    For i = 1 To lastRowSource
        ' 检查第2列是否非空
        If wsSource.Cells(i, 2).Value <> "" Then
            ' 复制指定列到Sheet2（这里可以修改列号对应关系）
            wsDest.Cells(lastRowDest + 1, 1).Value = wsSource.Cells(i, 1).Value ' 源列1 → 目标列1
            wsDest.Cells(lastRowDest + 1, 2).Value = wsSource.Cells(i, 2).Value ' 源列2 → 目标列2
            wsDest.Cells(lastRowDest + 1, 3).Value = wsSource.Cells(i, 3).Value ' 源列3 → 目标列3
            wsDest.Cells(lastRowDest + 1, 4).Value = wsSource.Cells(i, 5).Value ' 源列5 → 目标列4
            lastRowDest = lastRowDest + 1
        End If
    Next i
    
    MsgBox "数据复制完成！", vbInformation
End Sub

代码调整说明： #

• 如果你需要复制不同的列，只需要修改wsSource.Cells(i, X)里的X（源表列号）和wsDest.Cells(lastRowDest + 1, Y)里的Y（目标表列号）即可。比如要把Sheet1第4列复制到Sheet2第4列，就把最后一行改成wsDest.Cells(lastRowDest + 1, 4).Value = wsSource.Cells(i, 4).Value。

怎么使用这个宏： #

1. 打开你的Excel文件，按Alt+F11打开VBA编辑器。
2. 在左侧的「工程资源管理器」中右键点击你的工作簿，选择「插入」→「模块」。
3. 把上面的代码粘贴到模块窗口中。
4. 回到Excel，按Alt+F8，选择CopyFilteredRows，点击「运行」即可执行复制。

进阶：自动触发宏（新增数据时自动同步） #

如果你希望Sheet1新增数据时，Sheet2自动更新，可以添加一个工作表事件：

1. 在VBA编辑器中，双击左侧的「Sheet1」（源工作表）。
2. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 当Sheet1的第2列有改动时，自动运行复制宏
    If Not Intersect(Target, Me.Columns(2)) Is Nothing Then
        CopyFilteredRows
    End If
End Sub

这样，只要Sheet1的第2列新增或修改了数据，宏就会自动把符合条件的行复制到Sheet2的底部。

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