[已解决]Trim 的用法

张雄友

对去掉不必要的空格，一般用查找或者录制宏可以实现。但是对于一些从系统导出来的文件用查找

替换无法完成，或者说替换得不彻底。用函数TRIM 辅助列可以完成。以下是录制宏所得的代码：

Sub 去空格()

    Columns("A:A").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub


请问VBA用TRIM怎么解决？

最佳答案

月排行榜 / 总排行榜

hoogle

2013-8-13 18:33

用下面这段代码可以给活动工作表每个单元格使用TRIM

1. Sub hoogle()
   
2. Dim rg As Range
   
3. For Each rg In ActiveSheet.UsedRange
   
4.     rg.Value = Trim(rg)
   
5. Next
   
6. End Sub

复制代码

跳转到最佳答案楼层

我心飞翔410

http://www.excelpx.com/forum.php?mod=viewthread&tid=200683
你看看 这个 也许会有帮助

张雄友

看不懂啊？

我心飞翔410

去除空格 干嘛还用v啊  查找空格 替换空就玩了啊

lyf7276

Trim函数在工作表中和VBA中用法一样，在VBA中也可以直接用。

hoogle

用下面这段代码可以给活动工作表每个单元格使用TRIM

1. Sub hoogle()
   
2. Dim rg As Range
   
3. For Each rg In ActiveSheet.UsedRange
   
4.     rg.Value = Trim(rg)
   
5. Next
   
6. End Sub

复制代码

lyf7276

第一句：D学委
第二句：声明
第三句：在已使用区域中每个单元格循环一次
第四句：每个单元格去除空格（你是函中班的，TRIM函数不用我说了）
第五句：退出循环
第六句：退出D学委

张雄友

hoogle 发表于 2013-8-13 18:33
用下面这段代码可以给活动工作表每个单元格使用TRIM

还有一个问题。

sliang28

Selection改成：
.UsedRange

张雄友

sliang28 发表于 2013-8-13 20:20
Selection改成：
.UsedRange

问题是我不是要 去除UsedRange中的空格，而是Selection中的空格。