[已解决]请教用vba如何快速的去除多列中所有单元格中的空格符

Saint_Zuo

现在在sheet1中A:AY列中的每个单元格都可能存在前置或后置空格符，如"     aaa"或"aaa    "或"   aaa   "，请教如何用vba在单元格原来的位置将其中的空格符全部去掉。而且希望这个程序在数据量大的情况下运行效率也比较高（短时间内就能运行完）。各位高手帮帮忙，多谢了。

最佳答案

月排行榜 / 总排行榜

amulee

2010-1-7 09:16

未测试速度，不知道怎么样。

Sub Macro1()
    Application.ScreenUpdating = False
    Dim MyRng As Range
    For Each MyRng In Sheet1.UsedRange
        MyRng = Trim(MyRng)
    Next
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

Saint_Zuo

自己顶一下，麻烦各位了。

过儿

手工替换不行吗？

喜多多

Sub Macro1()
    Sheet1.UsedRange.Replace What:=" ", Replacement:=""
End Sub

Saint_Zuo

QUOTE:

以下是引用喜多多在2010-1-6 18:25:00的发言：

Sub Macro1()
    Sheet1.UsedRange.Replace What:=" ", Replacement:=""
End Sub

多谢你的程序，但我有个新的问题，如果某些单元格中的数据是以文本格式存储的大于15位的数字（设置单元格格式为文本，但单元格内容首字符前没有添加'符号），替换之后就会变成科学计数法，请教这个问题该如何解决？

Saint_Zuo

麻烦各位帮帮忙呀!

amulee

未测试速度，不知道怎么样。

Sub Macro1()
    Application.ScreenUpdating = False
    Dim MyRng As Range
    For Each MyRng In Sheet1.UsedRange
        MyRng = Trim(MyRng)
    Next
    Application.ScreenUpdating = True
End Sub

Saint_Zuo

QUOTE:

以下是引用amulee在2010-1-7 9:16:00的发言：

未测试速度，不知道怎么样。

Sub Macro1()
    Application.ScreenUpdating = False
    Dim MyRng As Range
    For
  Each MyRng In Sheet1.UsedRange
        MyRng = Trim(MyRng)
    Next
    Application.ScreenUpdating = True
End
  Sub

多谢你了，amulee老师，您真是及时雨。我测试了5000多行的A:aY列的数据，运行时间大约要半分钟左右，请教trim函数不管在vba还是在函数公式中是否只是去掉一个字符串的前置与后置空格，而对于一个字符串中间有空格是不做处理的，不知道我理解的是否对。

[此贴子已经被作者于2010-1-7 9:40:39编辑过]

amulee

QUOTE:

以下是引用Saint_Zuo在2010-1-7 9:40:00的发言：

多谢你了，amulee老师，您真是及时雨。我测试了5000多行的A:aY列的数据，运行时间大约要半分钟左右，请教trim函数不管在vba还是在函数公式中是否只是去掉一个字符串的前置与后置空格，而对于一个字符串中间有空格是不做处理的，不知道我理解的是否对。

对于中间的空格不处理的。去掉首尾的字符。

Saint_Zuo

多谢了。