vba 如何利用trim将文本中间的多余空格去掉

蜂蜜柚子

trim独立公式仅仅能替换首尾的空格，现想去掉多余的。

注：是去掉多余，保留1个空格，不能用replace。


比如 “1      2”，变成“1 2”

缔造者

不能用replace，可以用split

上清宫主

s$ = "1111      222"
MsgBox Left(s, InStr(s, " ")) & Trim(Mid(s, InStr(s, " ")))
MsgBox Left(s, InStr(s, " ")) & Mid(s, InStrRev(s, " ") + 1)
etc.

蜂蜜柚子

上清宫主 发表于 2014-1-22 20:19
s$ = "1111      222"
MsgBox Left(s, InStr(s, " ")) & Trim(Mid(s, InStr(s, " ")))
MsgBox Left(s, In ...

谢谢，
可是如果 1111   22     2   333“类似的就不行了。
如果在VBA中的trim同excel公式的应用一样？谢谢

雪舞子

蜂蜜柚子 发表于 2014-1-22 22:06
谢谢，
可是如果 1111   22     2   333“类似的就不行了。
如果在VBA中的trim同excel公式的应用一样？ ...

借用上清宫主原理做个自定义函数,楼主测试是否符合要求

1. Function TrimPlus(str As String) As String
   
2.     Dim str1$, str2$, n
   
3.     Do
   
4.         n = InStr(str, " ")
   
5.         If n > 0 Then
   
6.             str1 = Left(str, n)
   
7.             str = Trim(Mid(str, n))
   
8.             str2 = str2 & str1
   
9.         End If
   
10.     Loop Until n = 0
    
11.     TrimPlus = str2 & str
    
12. End Function

复制代码

雪舞子

进一步修正,首位不留空及去掉中文空格

1. Function TrimPlus(str As String) As String
   
2.     Dim str1 As String, str2 As String, n As Integer
   
3.     str = Trim(Replace(str, "　", ""))
   
4.     Do
   
5.         n = InStr(str, " ")
   
6.         If n > 0 Then
   
7.             str1 = Left(str, n)
   
8.             str = Trim(Mid(str, n))
   
9.             str2 = str2 & str1
   
10.         End If
    
11.     Loop Until n = 0
    
12.     TrimPlus = str2 & str
    
13. End Function

复制代码

fffox

直接调用工作表函数trim不是更方便吗？
VBA函数trim只会删除文本的前导和尾随空格，对文本中间的多余空格无能为力，但EXCEL工作表函数trim不仅会删除文本的前导和尾随空格，还会删除文本中间的多余空格只保留一个。
worksheetfunction.trim()  即可完美解决

上清宫主

fffox 发表于 2014-1-23 09:50
直接调用工作表函数trim不是更方便吗？
VBA函数trim只会删除文本的前导和尾随空格，对文本中间的多余空格无 ...

高！
可见，熟悉函数是多么重要哟

香川群子

fffox 发表于 2014-1-23 09:50
直接调用工作表函数trim不是更方便吗？
VBA函数trim只会删除文本的前导和尾随空格，对文本中间的多余空格无 ...

正解。

看到前面回帖那么努力，我都被笑惨了……

香川群子

上清宫主 发表于 2014-1-23 10:48
高！
可见，熟悉函数是多么重要哟

这根本没啥……

只能怪你自己知识面不够……


这也是这里比EH 水平低的原因之一。