excel中用脚本如何在单元格中填写alt+enter换行的文字

看下面的代码，只要在"Alt"+"Enter"内容处加入一个Chr(10)符号就可以。例如要在123和32132处强行回车，就加个chr(10)符号

Sub Macro1()

Range("A1").Select
ActiveCell.FormulaR1C1 = "123" & Chr(10) & "32132" ------这句就是
With ActiveCell.Characters(Start:=1, Length:=9).Font
.Name = "宋体"
.FontStyle = "常规"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End Sub

如果数据较多,可以先复制到word中,用"替换"功能将人功换行符替换成空格,然后复制回excel中,用"数据"->"分列"（分隔符号选择空格）的方法分成三列。

问一下,你为什么要用脚本来实现原本很简单的操作呢?