方法1：

Function RemoveSuperfluousSpace(str)
     dim re     
     Set re=new RegExp
     re.IgnoreCase =true
     re.Global=True
     re.Pattern="(\s{1,})"
     str=re.replace(str," ")
     removeSuperfluousSpace=str
     set re=nothing
End Function

方法2：

Function RegExpTest(strng)
Dim regEx ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = " +" ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
regexptest = regEx.Replace(strng," ")
End Function
MsgBox (regexptest("dfrg refrfe eee"))

方法3：

for i = 1 to len(aaa)
aaa=replace(aaa," "," ") 'aaa,后面这个双引是双空格,后面这个双引是单空格，这样就会一直替换下去，直到中间只有一个空格
next