碰到一个很棘手的问题：如何删除字符串中的空格，且只保留一个空格

LangQueS

看看是否可以：

Sub 替换()
For a = 2 To 20
b = Application.Rept(" ", a)
    Columns("A:A").Replace What:=b, Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next
    Columns("A:A").Replace What:="  ", Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Martinzhuchao

谢谢！

这样的话，每一个字符后面都会有一个空格，把本来连在一起的字符也分开了。

hhb6085

查找替换，两个空格换一个空格。

LangQueS

原帖由 Martinzhuchao 于 2010-7-22 13:36 发表
谢谢！

这样的话，每一个字符后面都会有一个空格，把本来连在一起的字符也分开了。

试验一下11楼代码的结果。

Martinzhuchao

原帖由 zljkd007 于 2010-7-22 13:27 发表
见附件，难道不是跟你要求的一样吗？

非常感谢！这个用公式行！但在VB里面却不行，郁闷啦！

LangQueS

原帖由 Martinzhuchao 于 2010-7-22 13:41 发表


非常感谢！这个用公式行！但在VB里面却不行，郁闷啦！

Sub 清除多余空格()
For a = 1 To [a65536].End(xlUp).Row
    Range("a" & a) = Application.Trim(Range("a" & a).Value)
Next
End Sub

Martinzhuchao

原帖由 zljkd007 于 2010-7-22 13:27 发表
见附件，难道不是跟你要求的一样吗？

哈哈！兄弟，你帮我大忙了！居然说不懂VB？？终于解决了，在VB理直接用TRIM不管用，但是用application.worksheetfunction.trim()就完全解决了！

再次感谢您！并感谢版主和各位大力相助的朋友！其它的方法我稍后再试验，现在急着交报告！

在一次感谢大家！

jxb8088

Sub jxb8088()
Set d = CreateObject("scripting.dictionary")
s = "A B  C        DE                       F"
arr = Split(s, " ")
For i = 0 To UBound(arr)
If arr(i) <> "" Then d(arr(i)) = ""
Next
MsgBox Join(d.keys, " ")
End Sub

Martinzhuchao

版主，太谢谢您了！

就是这样就可以了，我花了一个上午做逻辑/流程，想怎么解决者个问题，没想到就一个公式搞定！

您11楼的还没试，等做完报告我在试试。

非常感谢您！

alzeng

1. 
   
2. Sub NewStr()
   
3.     Dim oJs As Object, Str$
   
4. 
   
5.     Set oJs = CreateObject("ScriptControl"): oJs.Language = "JScript"
   
6.     oJs.eval "function gets(str){return str.replace(/\s+/g,' ')}"
   
7. 
   
8.     Str = "A B  C        DE                       F"
   
9.     Str = oJs.codeobject.gets(Str)
   
10.     MsgBox Str
    
11. End Sub
    

复制代码