一个去掉空格的简单问题！ TRIM去不掉！

[lht999]

Private Sub Command1_Click()
Dim ss As String * 50
Dim y As String
ss = "aa a"
Debug.Print ss, "a"
y = Trim(ss)
Debug.Print y, "b"
End Sub

TRIM去不掉空格！

有什么好的办法？？？

[gump2000]

trim是去左右的空格:)

[gump2000]

dim tmp() as string

buf=trim(buf)

tmp=split(trim," ")

buf=join(tmp,"")

buf就是你的ss

[唐古拉山]

用 replace 函数:

replace(ss," ","")

使用"" 代替" " 即可

[gump2000]

faint.还真简单，想麻烦取了

[gaoqi5037]

Function DelSpace(ByVal TStr As String) As String
Dim TempStr As String
Dim TempInt As Integer
TempInt = InStr(TStr, Space(1))
Do While Not TempInt = 0
TStr = VBA.Left(TStr, TempInt - 1) & VBA.Right(TStr, Len(TStr) - TempInt)
TempInt = InStr(TStr, Space(1))
Loop
DelSpace = TStr
End Function

[zhujiechang]

y=ss
y = Trim(y)
这样就可以了。

[wangsitao]

agree with tanaya(蜡笔小新)

[Ouyangyifeiczy]

ss = " dd "
ltrim(rtrim(ss))

[combread]

replace(ss,"","")
小新说得对

[lht999]

啊，我问错题了！！！ 我不是这个意思，晕！ 但还是给分！