VBA 中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怎么解决？

zhaogang1960

使用正则表达式处理速度很快，也不用辅助列，请参考：

1. Sub Macro1()
   
2.     Dim arr, i&
   
3.     With Range("A1:A" & Range("A65536").End(xlUp).Row)
   
4.         arr = .Value
   
5.         With CreateObject("VBScript.RegExp")
   
6.             .Pattern = "[" & ChrW$(160) & "]"
   
7.             .Global = True
   
8.             .IgnoreCase = False
   
9.             For i = 1 To UBound(arr)
   
10.                 arr(i, 1) = .Replace(arr(i, 1), "")
    
11.             Next
    
12.         End With
    
13.         .Value = arr
    
14.     End With
    
15. End Sub

复制代码

张雄友

zhaogang1960 发表于 2013-8-13 18:23
使用正则表达式处理速度很快，也不用辅助列，请参考：

版主，怎么去不掉空格的？

zhaogang1960

张雄友 发表于 2013-8-13 18:37
版主，怎么去不掉空格的？

这个附件不用正则表达式，直接使用Trim函数即可：
Sub TRIM的用法去空格()
    Dim arr, i&
    With Range("A1:A" & Range("A65536").End(xlUp).Row)
        arr = .Value
        For i = 1 To UBound(arr)
            arr(i, 1) = Trim(arr(i, 1))
        Next
        .Value = arr
    End With
End Sub

zhaogang1960

请看附件
trim.rar (6.11 KB, 下载次数: 78)

2013-8-13 18:47 上传

点击文件名下载附件

张雄友

zhaogang1960 发表于 2013-8-13 18:48
请看附件

如果不限制是A列，而是所选区域，中的1要改成什么变量？

Sub TRIM的用法去空格()
    Dim arr, i&
    arr = Selection.Value
        For i = 1 To UBound(arr)
            arr(i, 1) = Trim(arr(i, 1))
        Next
        .Value = arr
End Sub

zhaogang1960

张雄友 发表于 2013-8-13 18:53
如果不限制是A列，而是所选区域，中的1要改成什么变量？

Sub TRIM的用法去空格()

选择一个区域，如果选择多个区域则需要重写：
Sub TRIM的用法去空格()
    Dim arr, i&, j&
    arr = Selection.Value
    If IsArray(arr) Then
         For i = 1 To UBound(arr)
             For j = 1 To UBound(arr, 2)
                 arr(i, j) = Trim(arr(i, j))
             Next
         Next
        Selection.Value = arr
   Else
        Selection.Value = Trim(arr)
   End If
End Sub

张雄友

zhaogang1960 发表于 2013-8-13 19:03
选择一个区域，如果选择多个区域则需要重写：
Sub TRIM的用法去空格()
    Dim arr, i&, j&

在活动工作表sheet1,去操作另一个工作表《明细》的区域，怎么无效？哪里不足？这个问题测试了一下午都没成功，是不是END WITH 用得不对？

zhaogang1960

张雄友 发表于 2013-8-13 20:10
在活动工作表sheet1,去操作另一个工作表《明细》的区域，怎么无效？哪里不足？这个问题测试了一下午都没成 ...

Selection是活动工作表的选区，要先激活Sheets("明细")：

1. Sub TRIM的用法去空格适合多个区域()
   
2.     Dim arr, i&, j&
   
3.     Sheets("明细").Select
   
4.     arr = Selection.Value
   
5.     If IsArray(arr) Then
   
6.          For i = 1 To UBound(arr)
   
7.              For j = 1 To UBound(arr, 2)
   
8.                  arr(i, j) = Trim(arr(i, j))
   
9.              Next
   
10.          Next
    
11.         Selection.Value = arr
    
12.    Else
    
13.         Selection.Value = Trim(arr)
    
14.    End If
    
15. End Sub

复制代码

zhaogang1960

请看附件
trim的用法.rar (5.91 KB, 下载次数: 107)

2013-8-13 21:25 上传

点击文件名下载附件