如何在Excel中整理REC对象与可变行数错误信息为单行格式？

Excel文档中存储了大量待分析数据，每行要么是对象标识（格式如REC NO07/121007163），要么是该对象对应的错误信息，且每个对象的错误信息行数不固定。需要将数据转换为：对象标识 + 制表符 + 用. 连接的完整错误信息，最终每行对应一个对象及其所有错误内容。

示例原始数据：

REC NO07/121007163
Valuation for 0001 IFRS16 Balance sheet valuation
Asset transactions already posted need to be reversed
The valuation could not be completed
REC NO07/121007165
Valuation for 0001 IFRS16 Balance sheet valuation
Asset transactions already posted need to be reversed
The valuation could not be completed
REC NO07/121007220
Valuation for 0001 IFRS16 Balance sheet valuation
Closing balance 5 070,00 NOK liability available
Difference 5 070,00- NOK between clearing and expense available
REC NO07/121007221
Valuation for 0001 IFRS16 Balance sheet valuation
Closing balance 5 070,00 NOK liability available
Difference 5 070,00- NOK between clearing and expense available

目标格式：

REC NO07/121007163	Valuation for 0001 IFRS16 Balance sheet valuation. Asset transactions already posted need to be reversed. The valuation could not be completed
REC NO07/121007165	Valuation for 0001 IFRS16 Balance sheet valuation. Asset transactions already posted need to be reversed. The valuation could not be completed
REC NO07/121007220	Valuation for 0001 IFRS16 Balance sheet valuation. Closing balance 5 070,00 NOK liability available. Difference 5 070,00- NOK between clearing and expense available
REC NO07/121007221	Valuation for 0001 IFRS16 Balance sheet valuation. Closing balance 5 070,00 NOK liability available. Difference 5 070,00- NOK between clearing and expense available

这个需求完全可以在Excel中实现，推荐两种可靠方法：

方法一：使用Power Query（无需编程） #

Power Query擅长处理这种分组聚合的可变行数数据，步骤如下：

1. 选中原始数据所在列，点击数据选项卡 → 从表格/区域（Excel 2016及以后版本自带，旧版本需先加载Power Query插件）。
2. 在Power Query编辑器中添加自定义列标记对象行：
   • 点击添加列 → 自定义列，输入公式：=IF(Text.StartsWith([Column1], "REC NO"), [Column1], null)，将该列重命名为对象标识。
3. 填充空值，将对象标识向下传递到对应错误行：
   • 选中对象标识列，点击转换选项卡 → 填充 → 向下。
4. 筛选掉对象标识行（这类行无错误信息）：
   • 选中原始数据列（Column1），点击筛选箭头，取消勾选以REC NO开头的内容。
5. 分组聚合错误信息：
   • 点击转换选项卡 → 分组依据，设置：
     • 分组依据：对象标识
     • 新列名：错误信息
     • 操作：选择自定义，输入公式Text.Combine([Column1], ". ")
6. 添加制表符拼接内容：
   • 新增自定义列，公式：=[对象标识] & "#(tab)" & [错误信息]
7. 点击关闭并上载，将处理后的数据导出到新工作表。

方法二：使用VBA宏（灵活可控） #

如果需要自定义逻辑，可使用VBA脚本：

1. 按Alt + F11打开VBA编辑器，点击插入 → 模块新建模块。
2. 粘贴以下代码：

Sub CombineErrorData()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long, targetRow As Long
    Dim currentID As String, errorText As String
    
    Set wsSource = ActiveSheet ' 原始数据所在工作表
    Set wsTarget = ThisWorkbook.Worksheets.Add ' 新建目标工作表
    targetRow = 1
    
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    For i = 1 To lastRow
        If Left(wsSource.Cells(i, "A").Value, 6) = "REC NO" Then
            ' 写入上一个对象的整合内容
            If currentID <> "" Then
                wsTarget.Cells(targetRow, "A").Value = currentID & vbTab & errorText
                targetRow = targetRow + 1
                errorText = ""
            End If
            currentID = wsSource.Cells(i, "A").Value
        Else
            ' 拼接错误信息
            errorText = IIf(errorText <> "", errorText & ". ", "") & wsSource.Cells(i, "A").Value
        End If
    Next i
    
    ' 处理最后一个对象
    If currentID <> "" Then
        wsTarget.Cells(targetRow, "A").Value = currentID & vbTab & errorText
    End If
    
    MsgBox "数据处理完成，结果已保存到新工作表。"
End Sub

3. 返回Excel界面，按Alt + F8运行该宏，即可自动完成格式转换。

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