VBA怎样删掉字符串前后两端的空格，而保留中间的空格？

dominee

VBA怎样删掉字符串前后两端的空格，而保留中间的空格？
trim不仅去掉前后两端的空格，还把中间的连续空格变成了一个。怎样保留中间的空格不动呢？

vbee

trim 不会去掉中间的空格吧

小花鹿

你试过吗，就下结论                                                                                                         

lsc900707

举些例子，传个附件来证明你的结论！

ww87725244

1. Sub aa()
   
2. Dim s$, i%, k%
   
3.     s = " b aa a"
   
4.     Sheet2.Cells(1, 1) = s
   
5.     s = Trim(s)
   
6.     Debug.Print s
   
7.     Sheet2.Cells(2, 1) = s
   
8. End Sub
   
9. 对比一下就知道了

复制代码

joforn

有事请看说明书，谁告诉你Trim会去掉中间的连续空格成一个空格？

dominee

Sub test()
    a = "   ax aa    b b   "
    Debug.Print Trim(a)
    Debug.Print Application.WorksheetFunction.Trim(a)
End Sub
结果
ax aa    b b
ax aa b b
我知道了，trim()和Application.WorksheetFunction.Trim()不一样

dominee

ww87725244 发表于 2018-10-9 21:10

Sub test()
    a = "   ax aa    b b   "
    Debug.Print Trim(a)
    Debug.Print Application.WorksheetFunction.Trim(a)
End Sub
ax aa    b b
ax aa b b
我知道了原来Application.WorksheetFunction.Trim（）和trim()不一样

sayhi95

dominee 发表于 2018-10-10 00:14
Sub test()
    a = "   ax aa    b b   "
    Debug.Print Trim(a)

是的，工作表函数中间的空格只保留一个