嘿，我完全懂你这种高频重复任务的痛苦——每次把文本里分散的个人信息行，合并成单个单元格里的多行内容，手动弄太费时间了对吧？下面给你一套从快速临时方案到一键自动化的解决办法，绝对能帮你省不少精力：

一、快速手动预处理（适合小批量数据） #

如果只是偶尔处理少量数据，可以用这个快速技巧：

1. 先把文本文件导入Excel：点击「数据」选项卡→「自文本/CSV」，导入后每一行会自动占一个单元格，空行也会保留下来（这是区分不同人的关键）。
2. 选中数据所在的列，按F5→「定位条件」→选择「空值」，这些空行就是不同个人信息组的分隔线。
3. 选中第一个人的所有信息行（比如Bob的三行），在公式栏输入 =A1&CHAR(10)&A2&CHAR(10)&A3，按回车后，单元格里就会出现带换行的内容。最后记得开启单元格的「自动换行」（右键单元格→设置单元格格式→对齐→勾选自动换行）。

不过这个方法只适合小批量，高频操作的话，还是用下面的自动化宏更高效。

二、一键自动化VBA宏（适合高频重复操作） #

我给你写了一个专门的宏，能自动识别空行分隔的信息组，把每组内容合并到第一个单元格里，还会自动添加换行、开启自动换行并调整行高。

宏代码如下： #

Sub MergePersonEntries()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, mergeStart As Long
    
    '指定要处理的工作表，可改成你实际的表名，比如Sheets("导入数据")
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '关闭屏幕更新，提升运行速度
    Application.ScreenUpdating = False
    
    mergeStart = 1
    For i = 1 To lastRow + 1
        '遇到空行或者最后一行时，合并当前信息组
        If ws.Cells(i, "A").Value = "" Or i = lastRow + 1 Then
            '如果当前组有多行内容需要合并
            If i - mergeStart > 1 Then
                '用换行符合并所有行内容
                ws.Cells(mergeStart, "A").Value = Join(Application.Transpose(ws.Range(ws.Cells(mergeStart, "A"), ws.Cells(i - 1, "A"))), vbCrLf)
                '删除合并后多余的行
                ws.Rows(mergeStart + 1 & ":" & i - 1).Delete
                '更新总行数和循环位置（因为删除了行）
                lastRow = lastRow - (i - mergeStart - 1)
                i = mergeStart
            End If
            mergeStart = i + 1
        End If
    Next i
    
    '自动开启单元格换行
    ws.Columns("A").WrapText = True
    '自动调整行高适配内容
    ws.Rows.AutoFit
    
    Application.ScreenUpdating = True
    MsgBox "信息合并完成！", vbInformation
End Sub

使用步骤： #

1. 把你的文本文件导入到Excel的某个工作表中，确保数据在A列，且不同人的信息之间用空行分隔。
2. 按Alt+F11打开VBA编辑器，点击「插入」→「模块」，把上面的代码粘贴进去。
3. 回到Excel界面，按Alt+F8，在弹出的宏列表里选择MergePersonEntries，点击「运行」即可。

自定义调整： #

• 如果你的数据不在A列：把代码里的"A"改成对应列的字母（比如数据在B列就改成"B"）。
• 如果不是用空行分隔，而是用「Name:」开头标识新的个人：可以把判断条件改成 If Left(ws.Cells(i, "A").Value, 5) = "Name:" Then，这样每次遇到新的Name就自动合并上一个人的内容。

备注：内容来源于stack exchange，提问作者greyspace