我整理了几个适配不同场景的方法，帮你完成这个Test行对应后续ABC行的转换需求：

方案一：手动公式法（适合小数据量，零编程） #

如果你的数据行数不多，用Excel公式就能快速搞定：

1. 假设原始数据在Sheet1的A列，我们新建一个Sheet2来放结果。
2. 在Sheet2的A1单元格先手动输入第一个Test值（比如Test(read)）。
3. 在Sheet2的A2单元格输入这个公式，下拉填充：

   =IF(LEFT(Sheet1!A2,3)="ABC",Sheet2!A1,IF(LEFT(Sheet1!A2,4)="Test",Sheet1!A2,""))
   

   逻辑很简单：如果当前行是ABC开头，就继承上一行的Test分组；如果是Test开头，就用当前行的值；其他情况留空。
4. 再在Sheet2的B列对应位置输入公式，下拉填充：

   =IF(LEFT(Sheet1!A1,3)="ABC",Sheet1!A1,"")
   

   这个公式只提取ABC开头的行内容。
5. 最后筛选掉两列都为空的行，就是你要的结果啦。

方案二：Power Query法（适合批量处理，可重复复用） #

如果经常要处理这类数据，用Excel自带的Power Query更高效，步骤自动化：

1. 选中原始数据列，点击顶部「数据」选项卡 → 「从表格/区域」（记得勾选「我的表格有标题」，如果原始数据没标题，先手动加个比如「原始数据」）。
2. 进入Power Query编辑器后：
   • 点击「添加列」→「自定义列」，命名为Test分组，输入公式：

     = if Text.StartsWith([原始数据], "Test") then [原始数据] else null
     

   • 选中Test分组列，点击「转换」→「填充」→「向下填充」，这样所有ABC行都会自动带上最近的Test值。
   • 点击「开始」→「筛选」，在「原始数据」列的筛选器里只保留以ABC开头的行。
   • 最后重命名列：把Test分组改成col A，原始数据改成col B。
3. 点击「关闭并上载」，结果就自动生成在新工作表里了。

方案三：VBA宏法（适合复杂自动化，一键搞定） #

要是你需要频繁处理大量这类数据，写个VBA宏就能一键完成：

1. 按Alt+F11打开VBA编辑器，右键点击左侧的工作簿名称，选择「插入」→「模块」，粘贴下面的代码：

   Sub ConvertTestABCData()
       Dim sourceSheet As Worksheet
       Dim targetSheet As Worksheet
       Dim lastRow As Long
       Dim i As Long
       Dim currentTest As String
       
       ' 这里改成你原始数据所在的工作表名
       Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
       ' 新建一个工作表放结果
       Set targetSheet = ThisWorkbook.Sheets.Add
       targetSheet.Name = "转换结果"
       
       ' 写入表头
       targetSheet.Range("A1").Value = "col A"
       targetSheet.Range("B1").Value = "col B"
       
       lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
       currentTest = ""
       Dim targetRow As Long
       targetRow = 2
       
       ' 遍历原始数据
       For i = 1 To lastRow
           Dim cellValue As String
           cellValue = sourceSheet.Cells(i, "A").Value
           
           ' 遇到Test行就更新当前分组值
           If Left(cellValue, 4) = "Test" Then
               currentTest = cellValue
           ' 遇到ABC行就写入结果表
           ElseIf Left(cellValue, 3) = "ABC" Then
               targetSheet.Cells(targetRow, "A").Value = currentTest
               targetSheet.Cells(targetRow, "B").Value = cellValue
               targetRow = targetRow + 1
           End If
       Next i
       
       ' 自动调整列宽
       targetSheet.Columns("A:B").AutoFit
       MsgBox "转换完成！结果在「转换结果」工作表里~"
   End Sub
   

2. 把代码里的Sheet1改成你实际的原始数据工作表名，然后按F5运行宏，或者回到Excel里点击「开发工具」→「宏」选择这个宏运行，结果就自动生成了。

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