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

hhb6085 · 发表于 2010-7-23 14:04

查找替换，两个空格换一个空格。
==================
多打了一个字。应该是“查找框里输入两个空格，替换框里什么也不输入”，只需执行一次就完成。

Zamyi · 发表于 2010-7-23 14:11

原帖由 hhb6085 于 2010-7-23 14:04 发表
查找替换，两个空格换一个空格。
==================
多打了一个字。应该是“查找框里输入两个空格，替换框里什么也不输入”，只需执行一次就完成。

是偶数个空格那就变成没有空格，不符合。单元格公式TRIM会把头尾空格也去掉，严格地说也不对。

janivo · 发表于 2010-7-23 14:28

楼主，我觉得最简单的方法录一个宏，将下面操作运行上10次或更多，哈哈
原帖由 hhb6085 于 2010-7-23 14:04 发表
查找替换，两个空格换一个空格。

janivo · 发表于 2010-7-23 14:39

Dim i As Long
For i = 1 To 10
Cells.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End Sub

hhb6085 · 发表于 2010-7-23 15:05

算了，我也来疯一个。

Sub test()

Dim R As Integer
Dim L As Integer

For R = 1 To ActiveSheet.UsedRange.Columns.Count
For L = 1 To ActiveSheet.UsedRange.Rows.Count

a = Len(Cells(L, R).Value)

For i = a To 2 Step -1

temp = Space(i)
Cells(L, R) = Replace(Cells(L, R), temp, " ")

Next

Next
Next

End Sub

gdw2005 · 发表于 2010-7-23 15:09

用查找-- 替换就可以了吧。

紫竹闲人 · 发表于 2010-7-24 06:43

真是厉害啊

duwei9981 · 发表于 2010-7-24 08:36

最简单的，=trim()完全可以达到要求，
VB让人着魔，别忘了简单就是力量。

xiachangmu · 发表于 2010-7-24 10:50

先定义一个一维数组，然后这个数组等于split(a1," "),再用循环依次将这个数组的所有项中间加一个空格合并即可

xiachangmu · 发表于 2010-7-24 10:55

刚才忘记了，在循环前要要trim

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

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