excel vba将空格替换成换行符

在Excel VBA中，我们可以使用Replace函数将字符串中的空格替换为换行符。

下面是一个例子：

Sub ReplaceSpaces()
Dim str As String
Dim replacedStr As String

str = "这是一个含有空格的字符串"

' 将空格替换为换行符
replacedStr = Replace(str, " ", vbCrLf)

' 输出替换后的字符串
MsgBox replacedStr
End Sub

在上面的代码中，我们首先定义了一个字符串变量str，并将其中的内容设置为"这是一个含有空格的字符串"。然后，我们使用Replace函数将其中的空格替换为换行符，通过将函数的第一个参数设置为要替换的字符串，第二个参数设置为空格，第三个参数设置为换行符(vbCrLf)。最后，我们使用MsgBox函数输出替换后的字符串。

当我们运行这段代码时，会弹出一个提示框，显示替换空格为换行符后的字符串。