单个单元格里的多行数据，变为多行文本格式

paul8749

单个单元格里的多行数据，变为多行文本格式，各位大神应该如何处理，见副本，万分感谢

Eric0236

复制到word中，再贴回来

祝洪忠-

复制内容 在桌面右键单击 新建记事本，粘贴内容

再将目标单元格区域设置为文本格式 复制记事本中的内容  右键 粘贴选项 值

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar$(), br, i&
   
    br = Split([C4], vbLf)
    ReDim ar$(UBound(br), 0)
    For i = 0 To UBound(br)
        ar(i, 0) = br(i)
    Next i
   
    [F5].Resize(UBound(ar)+1) = ar
    Beep
End Sub

gwjkkkkk

VBA法参与一下。。。