如何在Excel中按分隔行批量转置同一列内的多组数据

方法1：Power Query（无代码，推荐新手） #

这是最省心的大数据量处理方式：

1. 选中包含分隔符__________的数据列，点击数据选项卡 → 从表格/区域（无表头则取消勾选「我的表格有标题」）。
2. 在Power Query编辑器中：
   • 点击添加列 → 索引列 → 从1开始。
   • 添加自定义列，公式为：= List.Count(List.Select(Table.Column(#"添加的索引", "列1"), each _ = "__________"){0..[Index]-1})（「列1」替换为你的数据列名），命名为「分组ID」。
   • 选中「分组ID」列，点击转换 → 分组依据，操作选「所有行」，新列名设为「组内容」。
   • 点击「组内容」列的展开按钮，选择提取值，分隔符留空（或按需选空格等）。
   • 若要拆分多列，选中合并后的列，点击转换 → 拆分列 → 按分隔符设置即可。
3. 点击关闭并上载，结果将输出到新工作表。

方法2：数组公式法（适配全版本Excel） #

假设数据在A列：

1. B2单元格输入公式：=IF(A2="__________",B1+1,B1)，B1初始值设为0，下拉填充至数据末尾，生成分组ID。
2. D1单元格输入公式：=IFERROR(INDEX($A:$A,SMALL(IF($B:$B=ROW(A1),ROW($A:$A)),COLUMN(A1))),"")
   • 旧版Excel按Ctrl+Shift+Enter作为数组公式输入；Excel 365/2021直接回车。
3. 选中D1，向右拖动填充柄至足够列数，再整体向下填充，即可得到横向分组数据。

方法3：VBA宏（适合重复批量操作） #

一键处理的宏代码：

Sub TransposeLogGroups()
    Dim sourceSheet As Worksheet, targetSheet As Worksheet
    Dim lastRow As Long, currentRow As Long, groupStartRow As Long
    Dim targetRow As Long
    
    Set sourceSheet = ActiveSheet
    Set targetSheet = ThisWorkbook.Sheets.Add(After:=sourceSheet)
    targetRow = 1
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    groupStartRow = 2 '假设第一行是分隔符，从第二行开始
    For currentRow = 2 To lastRow
        If sourceSheet.Cells(currentRow, "A").Value = "__________" Then
            sourceSheet.Range(sourceSheet.Cells(groupStartRow, "A"), _
                              sourceSheet.Cells(currentRow - 1, "A")).Copy
            targetSheet.Cells(targetRow, "A").PasteSpecial Transpose:=True
            targetRow = targetRow + 1
            groupStartRow = currentRow + 1
        End If
    Next currentRow
    
    '处理最后一组
    If groupStartRow <= lastRow Then
        sourceSheet.Range(sourceSheet.Cells(groupStartRow, "A"), _
                          sourceSheet.Cells(lastRow, "A")).Copy
        targetSheet.Cells(targetRow, "A").PasteSpecial Transpose:=True
    End If
    
    Application.CutCopyMode = False
    MsgBox "处理完成"
End Sub

使用方式：

1. 按Alt+F11打开VBA编辑器。
2. 右键工作簿名称 → 插入 → 模块，粘贴代码。
3. 按F5运行即可。

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