VBScript 从字符串中删除空格 - VBA

在 VBA 中，经常需要对字符串进行处理。而字符串中的空格有时候需要去掉，可以用如下代码实现：

' 删除字符串中的空格
Sub RemoveSpacesFromString(ByVal myString As String)
    myString = Replace(myString, " ", "")
End Sub

上述代码中，我们使用了 Replace 函数将字符串中的空格替换为空字符。

如果需要删除字符串中的多个空格，可以使用如下代码：

' 删除字符串中的所有空格
Sub RemoveAllSpacesFromString(ByVal myString As String)
    Dim newString As String
    newString = ""
    For i = 1 To Len(myString)
        If Mid(myString, i, 1) <> " " Then
            newString = newString & Mid(myString, i, 1)
        End If
    Next i
    myString = newString
End Sub

上述代码中，我们使用了一个新的字符串 newString 去存储去掉空格后的字符串。通过遍历原字符串的每个字符，如果字符不是空格，则将其添加到 newString 中。最终将 newString 赋值给原字符串即可。

这样就可以方便地删除字符串中的空格了！