如何在Excel中无需复制粘贴，按条件将Database工作表数据移至Report工作表

下面提供三种无需手动复制粘贴的实现方式，按需选择：

一、动态数组公式（适合Excel 365/2021及以上版本） #

如果你的Excel支持动态数组，用公式是最简便的，数据还能自动同步：

• 假设你要筛选Database工作表中**Status列等于“已完成”**的数据，在Report工作表的A2单元格输入公式：
  =FILTER(Database!A:Z, Database!D:D="已完成")
• 说明：Database!A:Z是你要提取的全部数据列范围，Database!D:D是判断条件的列，"已完成"是你指定的筛选条件。输入后公式会自动返回所有符合条件的行，后续Database里的数据更新时，Report的结果会自动同步。

二、Power Query工具（适合所有Excel版本，数据可一键刷新） #

用Power Query可以可视化筛选并生成可刷新的查询表：

1. 打开Excel，切换到「数据」选项卡，点击「从表格/区域」，选中Database工作表的数据区域，勾选「我的表格有标题」后确定，进入Power Query编辑器。
2. 在编辑器里找到条件列（比如Status列），点击列标题旁的筛选按钮，勾选你需要的条件（比如“已完成”），点击确定。
3. 点击「关闭并上载」，选择将数据上载到Report工作表的指定位置（比如A1单元格）。之后只要Database的数据有更新，右键点击Report里的查询表，选择「刷新」就能同步最新数据，全程不用复制粘贴。

三、VBA宏（适合需要一键触发“移动/转移”的场景） #

如果需要一键把符合条件的数据转移（甚至删除原数据），可以用VBA宏：

1. 按Alt+F11打开VBA编辑器，右键点击左侧的工作簿名称，选择「插入」→「模块」。
2. 在模块里粘贴以下代码：

Sub MoveMatchingData()
    Dim dbSheet As Worksheet, reportSheet As Worksheet
    Dim lastRow As Long, i As Long, reportRow As Long
    
    Set dbSheet = ThisWorkbook.Worksheets("Database")
    Set reportSheet = ThisWorkbook.Worksheets("Report")
    
    ' 获取Database工作表的最后一行数据
    lastRow = dbSheet.Cells(dbSheet.Rows.Count, "A").End(xlUp).Row
    ' 从Report工作表的下一行空白处开始写入数据
    reportRow = reportSheet.Cells(reportSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 遍历Database的每一行数据（从第2行开始，假设第1行是表头）
    For i = 2 To lastRow
        ' 这里的条件是D列（Status列）等于"已完成"，可根据你的实际条件修改
        If dbSheet.Cells(i, "D").Value = "已完成" Then
            ' 将符合条件的行复制到Report
            dbSheet.Rows(i).Copy reportSheet.Rows(reportRow)
            ' 要是需要复制后删除原行，把下面两行的注释去掉
            ' dbSheet.Rows(i).Delete
            ' i = i - 1 ' 删除行后索引回退，避免跳过下一行
            reportRow = reportRow + 1
        End If
    Next i
End Sub

3. 保存工作簿（注意要保存为「启用宏的工作簿」格式，后缀是.xlsm）。之后可以在Excel里添加一个按钮，把宏绑定到按钮上，一键执行数据转移。

内容的提问来源于stack exchange，提问作者Eko Prasetyo Wibowo