如何用Excel公式将指定多行内容移至对应单元格并批量应用

方法1：公式组合操作（适合不会宏的新手） #

假设数据都在A列，要把目标内容移到对应行的B列：

1. 标记目标起始行：在C列输入=IF(A1="Related applications",ROW(),"")，下拉到最后一行，C列会显示所有“Related applications”所在的行号。
2. 标记目标结束行：在D列输入=IF(A1="Related parts",ROW(),"")，同样下拉填充，D列会显示所有“Related parts”的行号。
3. 提取合并内容：找到C列有行号的行（比如A5是“Related applications”，C5显示5），在B5输入公式：

   =TEXTJOIN(" ",TRUE,INDIRECT("A"&C5+1&":A"&INDEX(D:D,C5+1,MATCH(TRUE,D:C5+1:1048576<>"",0))-1))
   

   这个公式会自动把A6到“Related parts”前一行的内容合并成一段，放到B5里。把这个公式复制到所有C列有行号的对应B列单元格。
4. 删除冗余行：选中所有“Related applications”和“Related parts”之间的行，右键删除即可。

方法2：VBA宏一键处理（多场景高效操作） #

如果工作表里有很多这类区块，手动公式太麻烦，用宏一键搞定：

1. 打开Excel，按Alt + F11调出VBA编辑器。
2. 右键左侧当前工作簿名称，选「插入」→「模块」。
3. 粘贴下面的代码：

   Sub MoveRelatedAppsContent()
       Dim ws As Worksheet
       Dim startRow As Long, endRow As Long
       Dim i As Long
       
       Set ws = ActiveSheet ' 要指定工作表的话，改成Set ws = ThisWorkbook.Sheets("你的工作表名")
       
       i = 1
       Do While i <= ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
           If ws.Cells(i, "A").Value = "Related applications" Then
               startRow = i + 1
               ' 找到下一个"Related parts"的位置
               endRow = ws.Range("A" & startRow & ":A" & ws.Rows.Count).Find(What:="Related parts", LookIn:=xlValues, LookAt:=xlWhole).Row
               ' 把中间行内容合并到右侧单元格
               ws.Cells(i, "B").Value = Join(Application.Transpose(ws.Range("A" & startRow & ":A" & endRow - 1).Value), " ")
               ' 删除中间的冗余行
               ws.Rows(startRow & ":" & endRow - 1).Delete
               ' 跳到"Related parts"行继续循环
               i = endRow
           Else
               i = i + 1
           End If
       Loop
   End Sub
   

4. 回到Excel，按Alt + F8，选中MoveRelatedAppsContent点击执行就行。

注意点 #

• 跑宏前最好先备份工作表，防止误删数据。
• 如果要保留原内容的换行，把代码里的" "改成vbCrLf。

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