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

hhb6085

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

Zamyi

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

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

janivo

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

janivo

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

算了，我也来疯一个。

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

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

紫竹闲人

真是厉害啊

duwei9981

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

xiachangmu

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

xiachangmu

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