如何用VBA提取同一单元格内多行数据并拆分至不同列

以下是直接可用的VBA代码，解决将单个单元格内的多行数据拆分到同一行不同列的需求：

Sub SplitMultiLineToColumns()
    Dim sourceCell As Range
    Dim splitData As Variant
    Dim targetStartCell As Range
    Dim cellText As String
    
    ' 配置源单元格与目标起始单元格
    Set sourceCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 修改为你的源单元格位置
    Set targetStartCell = ThisWorkbook.Sheets("Sheet1").Range("D1") ' 修改为你的目标起始位置
    
    ' 统一处理各类换行符（兼容Windows/Unix/旧Mac格式）
    cellText = Replace(sourceCell.Value, vbCrLf, vbLf)
    cellText = Replace(cellText, vbCr, vbLf)
    
    ' 按换行拆分文本为数组
    splitData = Split(cellText, vbLf)
    
    ' 将拆分结果一次性写入同行的连续列中
    targetStartCell.Resize(1, UBound(splitData) + 1).Value = splitData
End Sub

关键说明 #

• 换行符兼容：Excel单元格内的换行可能是vbCrLf、vbLf或vbCr，统一替换为vbLf确保拆分不遗漏任何行。
• 高效赋值：直接将拆分后的数组写入目标区域，比用Offset逐个单元格赋值更高效且不易出错。
• 灵活配置：只需修改sourceCell和targetStartCell的地址，即可适配不同的单元格位置。

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