参考代码
dim s as string = "123" & vbcrlf & "456"msgbox(s)s = s.Replace(chr(10), "").Replace(chr(13), ",")msgbox(s)