如何基于TRUE/FALSE条件复制指定列行数据至目标工作表并更新

自动化实现（VBA宏） #

用VBA宏可以一键完成清空目标表、筛选源表数据并复制粘贴的操作，省去手动重复步骤：

Sub UpdateCustomerList()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRowSource As Long, lastRowTarget As Long
    
    ' 指定源表和目标表
    Set wsSource = ThisWorkbook.Worksheets("Product Price List")
    Set wsTarget = ThisWorkbook.Worksheets("Customer List")
    
    ' 清空Customer List的现有数据（保留第1行表头）
    If wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row >= 2 Then
        wsTarget.Range("A2:D" & wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row).ClearContents
    End If
    
    ' 获取源表最后一行数据行号
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 筛选源表中条件为TRUE的行（假设TRUE标记在E列，对应Field:=5，可根据实际列调整）
    wsSource.Range("A1:D" & lastRowSource).AutoFilter Field:=5, Criteria1:="TRUE"
    
    ' 复制可见行的数据（跳过表头）
    wsSource.Range("A2:D" & lastRowSource).SpecialCells(xlCellTypeVisible).Copy
    
    ' 粘贴到目标表的第2行起始位置，保留数值和格式
    wsTarget.Range("A2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
    
    ' 取消源表的筛选状态
    wsSource.AutoFilterMode = False
End Sub

使用说明：

1. 按Alt+F11打开VBA编辑器，右键当前工作簿插入「模块」，粘贴上述代码
2. 检查代码中Field:=5的数值：如果你的TRUE标记列不是E列，改成对应列的序号（A=1，B=2，以此类推）
3. 保存工作簿为「启用宏的工作簿（.xlsm）」，之后点击开发工具中的「宏」，选择UpdateCustomerList运行即可完成更新

手动操作步骤 #

如果不想用宏，可按以下步骤手动完成：

1. 打开「Product Price List」工作表，选中包含TRUE标记的列，点击「数据」选项卡的「筛选」按钮
2. 在该列的筛选下拉框中勾选「TRUE」，仅显示符合条件的行
3. 选中这些行的A、B、C、D列数据（从第2行开始，避开表头），按Ctrl+C复制
4. 切换到「Customer List」工作表，选中第2行A列单元格，先清空之前的数据（选中已有数据区域按Delete）
5. 按Ctrl+V粘贴数据，完成更新

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