提取表格含x单元格及对应A/B列数据至新表的多x行处理问题

需求说明 #

原表格中A、B列为每行的标识信息，C-E列单元格可能包含值"x"；需要将C-E列里含"x"的单元格内容，连同对应行的A、B列值，提取到第二个表格中，要求同一行存在多个"x"时，每个"x"对应一条独立记录。

方法1：Power Query（推荐，适配大型数据集） #

无需复杂公式，高效处理大数据量：

1. 选中原数据区域，点击「数据」选项卡 → 「从表格/区域」（Excel 2016及以上版本），将数据导入Power Query编辑器
2. 选中C、D、E列，点击「转换」选项卡 → 「逆透视列」→ 「逆透视其他列」
3. 生成「属性」（原列名）和「值」列后，筛选「值」列等于"x"的行
4. 点击「关闭并上载」，将处理后的数据导出到新工作表，即为预期结果

方法2：修正版VBA代码 #

如果习惯用VBA，以下代码可遍历所有行和C-E列，完整提取所有含"x"的记录：

Sub ExtractXRecords()
    Dim srcSheet As Worksheet, destSheet As Worksheet
    Dim lastRow As Long, destRow As Long
    Dim i As Long, j As Long
    
    Set srcSheet = ThisWorkbook.Sheets("原数据") ' 替换为你的原表名称
    Set destSheet = ThisWorkbook.Sheets("目标表") ' 替换为你的目标表名称
    destRow = 2 ' 目标表表头在第1行，从第2行开始写入数据
    
    lastRow = srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历每一行数据
    For i = 2 To lastRow ' 假设原表表头在第1行，从第2行开始遍历
        ' 遍历C到E列（列号3到5）
        For j = 3 To 5
            If srcSheet.Cells(i, j).Value = "x" Then
                ' 写入对应A、B列值和当前单元格内容
                destSheet.Cells(destRow, 1).Value = srcSheet.Cells(i, 1).Value
                destSheet.Cells(destRow, 2).Value = srcSheet.Cells(i, 2).Value
                destSheet.Cells(destRow, 3).Value = srcSheet.Cells(i, j).Value
                destRow = destRow + 1
            End If
        Next j
    Next i
    
    MsgBox "提取完成！"
End Sub

使用提示：

• 修改代码中的工作表名称为你的实际表名
• 确保目标表已设置好对应表头
• 按Alt+F11打开VBA编辑器，插入模块粘贴代码后运行

方法3：动态数组公式（适合小型数据集） #

Excel 365及支持动态数组的版本可用，无需按Ctrl+Shift+Enter：
在目标表A2单元格输入：

=TOROW(IFERROR(INDEX(原数据!A:A,INT(SEQUENCE(ROWS(原数据!A2:E100)*3,1,0)/3)+2),""),,TRUE)

B2单元格输入：

=TOROW(IFERROR(INDEX(原数据!B:B,INT(SEQUENCE(ROWS(原数据!A2:E100)*3,1,0)/3)+2),""),,TRUE)

C2单元格输入：

=TOROW(IFERROR(INDEX(原数据!C:E,INT(SEQUENCE(ROWS(原数据!A2:E100)*3,1,0)/3)+2,MOD(SEQUENCE(ROWS(原数据!A2:E100)*3,1,0),3)+1),""),,TRUE)

最后筛选C列等于"x"的行即可。注意替换公式中的原数据!A2:E100为你的实际数据区域，此方法仅推荐用于小数据量场景。

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