如何在Excel Table Object中按条件关联同行数据并填充？

VBA代码实现（推荐，灵活可控） #

直接通过ListObject对象操作表格，无需依赖单元格位置，表格结构变动也能正常运行：

Sub FillTableBasedOnFlag()
    Dim sourceTable As ListObject
    Dim targetTable As ListObject
    Dim sourceRow As ListRow
    Dim newTargetRow As ListRow
    
    ' 替换为你的实际工作表名和表格名称
    Set sourceTable = ThisWorkbook.Worksheets("Sheet1").ListObjects("SourceTable")
    Set targetTable = ThisWorkbook.Worksheets("Sheet1").ListObjects("TargetTable")
    
    ' 遍历源表格所有行
    For Each sourceRow In sourceTable.ListRows
        ' 这里判断Flag Desc是否为真，若你的"真"是文本内容则改为 = "真"
        If sourceRow.Range(sourceTable.ListColumns("Flag Desc").Index).Value = True Then
            ' 在目标表格新增一行
            Set newTargetRow = targetTable.ListRows.Add(AlwaysInsert:=True)
            ' 填充Desc列
            newTargetRow.Range(targetTable.ListColumns("Desc").Index).Value = sourceRow.Range(sourceTable.ListColumns("Flag Desc").Index).Value
            ' 填充MD列
            newTargetRow.Range(targetTable.ListColumns("MD").Index).Value = sourceRow.Range(sourceTable.ListColumns("D Out").Index).Value
        End If
    Next sourceRow
End Sub

关键逻辑说明 #

• ListObject是Excel表格的原生对象，通过工作表.ListObjects("表格名")直接引用，比普通单元格区域更可靠，不会因表格增删列、调整位置失效。
• ListColumns("列名").Index通过列名获取对应列的索引，不用硬写固定列号，适配表格结构变化。
• ListRows遍历表格行，Range(列索引)精准定位当前行的指定列单元格，直接完成取值与赋值操作。

公式实现（无需VBA） #

如果不想用代码，可在目标表格的Desc列第一行数据单元格输入以下数组公式（输入后按Ctrl+Shift+Enter确认），再下拉填充：

=IFERROR(INDEX(SourceTable[Flag Desc],SMALL(IF(SourceTable[Flag Desc]=TRUE,ROW(SourceTable[Flag Desc])-ROW(SourceTable[#Headers]),""),ROW()-ROW(TargetTable[#Headers]))),"")

同理，MD列第一行数据单元格输入：

=IFERROR(INDEX(SourceTable[D Out],SMALL(IF(SourceTable[Flag Desc]=TRUE,ROW(SourceTable[Flag Desc])-ROW(SourceTable[#Headers]),""),ROW()-ROW(TargetTable[#Headers]))),"")

注意替换公式中的SourceTable和TargetTable为你的实际表格名称。

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