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

LangQueS · 发表于 2010-7-22 13:35

看看是否可以：

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 · 发表于 2010-7-22 13:36

谢谢！

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

hhb6085 · 发表于 2010-7-22 13:39

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

LangQueS · 发表于 2010-7-22 13:41

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

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

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

Martinzhuchao · 发表于 2010-7-22 13:41

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

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

LangQueS · 发表于 2010-7-22 13:47

原帖由 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 · 发表于 2010-7-22 13:48

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

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

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

在一次感谢大家！

jxb8088 · 发表于 2010-7-22 13:49

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 · 发表于 2010-7-22 13:56

版主，太谢谢您了！

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

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

非常感谢您！

alzeng · 发表于 2010-7-22 14:09

Sub NewStr()
Dim oJs As Object, Str$
Set oJs = CreateObject("ScriptControl"): oJs.Language = "JScript"
oJs.eval "function gets(str){return str.replace(/\s+/g,' ')}"
Str = "A B C DE F"
Str = oJs.codeobject.gets(Str)
MsgBox Str
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

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

回复 7楼 civl 的帖子

回复 16楼 LangQueS 的帖子