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

LangQueS

原帖由 Martinzhuchao 于 2010-7-22 13:56 发表
版主，太谢谢您了！

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

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

非常感谢您！

不用谢！  如果只是空格问题，用16楼的即可；如果其他字符，就用11楼的。

Zamyi

简单：
Set r = Cells.Find("  ")
While Not r Is Nothing
Cells.Replace "  ", " "
Set r = Cells.Find("  ")
Wend

Zamyi

下面也可以
Function DelSpa(s)
Dim Rx As New RegExp
With Rx
  .Global = True
  .Pattern = "[\ ]+"
  DelSpa = .Replace(s, " ")
  End With
Set Rx = Nothing
End Function

amolin

Sub www()

A = "aa   bb cc  fg       fgdfg"

For i = Len(A) To 1 Step -1
    If i > 1 Then
        If Mid(A, i - 1, 1) = " " And Mid(A, i, 1) = " " Then
        Else
            B = Mid(A, i, 1) & B
        End If
    Else
         B = Left(A, 1) & B
    End If
Next

MsgBox B

End Sub

kaikai6340

此贴是无聊贴

Martinzhuchao

原帖由 kaikai6340 于 2010-7-22 18:05 发表
此贴是无聊贴

老大，怎么能这样说呢？我确实是不知道啊。也许你早就知道，但并不能说你知道就武断的认为是无聊贴啊。

现在我又碰到一个问题，关于痛配符*的。

我的一个表里面有的行里会有3个 *   ，带有且仅带有3个 * 的行里面有很重要的信息，因此我想把他截取下来，但不要带*  号。我用 if left(cells(i, 1) = "***" then 这样的语句来判断，但，不知道是对还是错，两边的 * 或许应该是作为同配符号来处理？？？那么，我是否应该更改为：

if left(cells(i, 1) = "*****" then  ？？？？？

lummox

原帖由 hhb6085 于 2010-7-22 13:39 发表
查找替换，两个空格换一个空格。

正解！多次替换。
其他的方法都是故意复杂化。

[ 本帖最后由 lummox 于 2010-7-22 23:29 编辑 ]

鬼狐

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


谢谢回复

这个只能去掉两头的空格，单对字符串中间的空格没办法，在说了，即便可以去掉中间的空格，也保留不了一个空格，全部字符都连在一起了。

3楼的怎么不可以啊，明明可以的嘛
还有，我还是觉得用上面说的一个空格替换两个空格，多用几次，选择性粘贴一下，把后面的一个空格去掉就可以了
有些时候操作还是很好用的

褪色的，花

為什麽我完全都不懂，覺得自己好無知啊！連菜鳥都不如

westmood

这个强！学习了，哈哈，有简单的，有复杂的