Excel宏-如何将换行文本分解为合并列的行？

Sub SplitText()
    Dim cell As Range
    Dim textArr() As String
    Dim i As Integer
    
    ' 遍历选定的单元格范围
    For Each cell In Selection
        ' 检查单元格中是否包含换行符
        If InStr(cell.Value, Chr(10)) > 0 Then
            ' 使用换行符分割文本
            textArr = Split(cell.Value, Chr(10))
            
            ' 将分割后的文本填充到合并列的行中
            For i = LBound(textArr) To UBound(textArr)
                cell.Offset(i).Value = textArr(i)
            Next i
            
            ' 清空原始单元格的内容
            cell.ClearContents
        End If
    Next cell
End Sub