如何基于条件将Data标签页的数据分配至对应Excel标签页？

一、无需VBA：用动态数组函数自动提取工单编号 #

针对Excel 365/2021版本，FILTER函数是最直接的自动化方案，能动态提取符合条件的工单编号，无需手动复制粘贴：

1. 「待送修车辆」标签页（条件：未开始维修，Date Started为空）
   在A2单元格输入公式：

   =FILTER(Data!A:A, Data!B:B="", "无待送修工单")
   

   注：假设Data表中A列为Order number，B列为Date Started。

2. 「在店维修车辆」标签页（条件：已开始但未完成，Date Started非空且Date Completed为空）
   在A2单元格输入公式：

   =FILTER(Data!A:A, (Data!B:B<>"")*(Data!C:C=""), "无在店维修工单")
   

   注：C列为Date Completed。

3. 「已完成车辆」标签页（条件：已完成维修，Date Completed非空）
   在A2单元格输入公式：

   =FILTER(Data!A:A, Data!C:C<>"", "无已完成工单")
   

提取工单编号后，直接用XLOOKUP填充其他字段即可，比如在「待送修车辆」B2单元格输入：

=XLOOKUP(A2, Data!A:A, Data!D:D, "")

公式会随FILTER生成的动态数组自动扩展，无需下拉填充。

旧版Excel（无FILTER）替代方案 #

用INDEX+SMALL+IF数组公式实现，以「待送修车辆」A2为例：

=IFERROR(INDEX(Data!A:A, SMALL(IF(Data!B:B="", ROW(Data!A:A)), ROW(A1))), "")

输入后按Ctrl+Shift+Enter触发数组运算，再下拉填充至空白行。

二、VBA宏方案：适合复杂自动化场景 #

如果需要定时刷新、处理超大量数据，或联动其他自动化操作，可使用VBA宏实现：

以下是基础示例代码，可直接粘贴到Excel的VBA编辑器（按Alt+F11打开）：

Sub AutoAssignWorkOrders()
    Dim wsData As Worksheet, wsPending As Worksheet, wsInShop As Worksheet, wsCompleted As Worksheet
    Dim lastRow As Long, i As Long
    
    ' 绑定工作表
    Set wsData = ThisWorkbook.Sheets("Data")
    Set wsPending = ThisWorkbook.Sheets("待送修车辆")
    Set wsInShop = ThisWorkbook.Sheets("在店维修车辆")
    Set wsCompleted = ThisWorkbook.Sheets("已完成车辆")
    
    ' 清空目标表旧数据（保留表头）
    wsPending.Range("A2:" & wsPending.Cells(wsPending.Rows.Count, wsPending.Columns.Count).Address).ClearContents
    wsInShop.Range("A2:" & wsInShop.Cells(wsInShop.Rows.Count, wsInShop.Columns.Count).Address).ClearContents
    wsCompleted.Range("A2:" & wsCompleted.Cells(wsCompleted.Rows.Count, wsCompleted.Columns.Count).Address).ClearContents
    
    ' 获取Data表最后一行
    lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历工单并分配
    For i = 2 To lastRow
        Select Case True
            Case wsData.Cells(i, "B").Value = ""
                wsPending.Cells(wsPending.Rows.Count, "A").End(xlUp).Offset(1, 0).Value = wsData.Cells(i, "A").Value
            Case wsData.Cells(i, "B").Value <> "" And wsData.Cells(i, "C").Value = ""
                wsInShop.Cells(wsInShop.Rows.Count, "A").End(xlUp).Offset(1, 0).Value = wsData.Cells(i, "A").Value
            Case wsData.Cells(i, "C").Value <> ""
                wsCompleted.Cells(wsCompleted.Rows.Count, "A").End(xlUp).Offset(1, 0).Value = wsData.Cells(i, "A").Value
        End Select
    Next i
    
    ' 自动填充XLOOKUP（可选，也可提前在目标表预置公式）
    With wsPending
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        If lastRow >= 2 Then .Range("B2:B" & lastRow).Formula = "=XLOOKUP(A2, Data!A:A, Data!D:D, """")"
    End With
    With wsInShop
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        If lastRow >= 2 Then .Range("B2:B" & lastRow).Formula = "=XLOOKUP(A2, Data!A:A, Data!D:D, """")"
    End With
    With wsCompleted
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        If lastRow >= 2 Then .Range("B2:B" & lastRow).Formula = "=XLOOKUP(A2, Data!A:A, Data!D:D, """")"
    End With
End Sub

你可以通过按钮绑定宏，或设置Worksheet_Change事件实现数据更新时自动执行。

三、学习方向指引 #

函数路线（快速上手，无代码基础） #

1. 重点掌握动态数组函数：FILTER（核心提取工具）、XLOOKUP（替代VLOOKUP的高效匹配函数），了解动态数组的自动扩展特性。
2. 补充学习逻辑判断函数：IF、AND/OR（用于组合多条件），以及ROW、SMALL（旧版Excel数组公式必备）。

VBA路线（适合进阶自动化需求） #

1. 入门阶段：学习Excel对象模型（Worksheet、Range、Cell）的基本操作，掌握循环（For/Next）、条件判断（Select Case/If）的语法。
2. 进阶阶段：学习事件触发（如Worksheet_Change、Workbook_Open），实现数据更新时自动执行宏；掌握数据批量处理技巧，提升大文件运行效率。

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