我只知道  trim 函数

Function Moving(inputstr As String)
    inputstr = Trim(Replace(inputstr, vbCrLf, ""))
    Moving = Replace(inputstr, " ", "")
End Function

有这么多人帮忙,谢谢!!!!!!!!!!!!!!!!!!!!

楼上的对,Replace简单的很