如何将Excel单元格内换行分隔的事件拆分为多行记录？

方法一：通过Text to Columns实现需求 #

Text to Columns其实支持换行作为分隔符，只是需要手动输入换行符：

• 选中存放事件的目标列（比如列C）
• 点击「数据」选项卡 → 「分列」
• 选择「分隔符号」，点击下一步
• 在「分隔符号」区域勾选「其他」，然后按住 Alt 键，在小键盘输入 010（Windows系统）；Mac系统直接按 Option+Enter 输入换行符
• 点击下一步，设置数据格式后完成分列
• 分列后事件会变成横向多列，需要转成多行：
  • 选中包含Id、Field A、Field B及所有拆分后事件列的区域
  • 复制内容，右键点击目标单元格，选择「选择性粘贴」→「转置」
  • 最后用填充柄补全重复的Id、Field A、Field B字段，整理成每行对应单个事件的格式

方法二：用VBA宏批量处理 #

如果数据量较大，宏的效率更高，以下是可直接使用的宏代码：

Sub SplitEventsToRows()
    Dim originalSheet As Worksheet
    Dim newSheet As Worksheet
    Dim lastRow As Long, newRow As Long
    Dim i As Long, j As Long
    Dim eventArr As Variant
    
    Set originalSheet = ActiveSheet
    Set newSheet = ThisWorkbook.Sheets.Add(After:=originalSheet)
    
    '复制表头到新工作表
    originalSheet.Rows(1).Copy newSheet.Rows(1)
    
    lastRow = originalSheet.Cells(Rows.Count, "A").End(xlUp).Row
    newRow = 2 '从第二行开始写入拆分后的数据
    
    For i = 2 To lastRow
        '按换行符拆分事件单元格（假设事件存放在C列，可根据实际修改列标识）
        eventArr = Split(originalSheet.Cells(i, "C").Value, vbCrLf)
        
        '遍历每个事件，写入新表并保留关联字段
        For j = LBound(eventArr) To UBound(eventArr)
            If Trim(eventArr(j)) <> "" Then '跳过空的事件内容
                newSheet.Cells(newRow, "A").Value = originalSheet.Cells(i, "A").Value 'Id字段
                newSheet.Cells(newRow, "B").Value = originalSheet.Cells(i, "B").Value 'Field A字段
                newSheet.Cells(newRow, "C").Value = Trim(eventArr(j)) '单个事件内容
                newRow = newRow + 1
            End If
        Next j
    Next i
    
    '自动调整新表列宽
    newSheet.Columns.AutoFit
    MsgBox "事件拆分完成！"
End Sub

使用步骤：

• 打开目标Excel文件，按下 Alt+F11 打开VBA编辑器
• 插入新模块，粘贴上述代码
• 根据实际数据位置修改代码中的列标识（比如事件在D列，就把Cells(i, "C")改为Cells(i, "D")）
• 返回Excel界面，按下 Alt+F8 选择该宏并执行

注意：执行前建议备份原始文件，避免数据意外丢失。

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