录入数据时难免文本中会录入空格换行以及TAB符，有多种方法可以去除。这里介绍其中的VBA的方法。



比如上图中有空格，换行，以及TAB符号包含文本共34个字符，替换后则只有ABC3个字符

1.             If e.Shape.Name = "Button 1" Then
   
2.                 ActiveWorkbook.WorkbookSet.GetLock()
   
3.                 Dim MyRange As IRange
   
4.                 Dim MyStr As String
   
5.                 For Each MyRange In Range("E8")
   
6.                     MyStr = MyRange.Text
   
7.                     '下面三行分别替换，目的是为了看的清楚
   
8.                     'MyStr = MyStr.Replace(" ", "")  '空格
   
9.                     'MyStr = Replace(Replace(MyStr, vbCr, ""), vbLf, "")  '换行
   
10.                     'MyStr = Replace(MyStr, vbTab, "")  'TAB
    
11.                     '下面一行合并在一起了
    
12.                     MyStr = Replace(Replace(Replace(MyStr.Replace(" ", ""), vbCr, ""), vbLf, ""), vbTab, "")
    
13.                     MyRange.Value = MyStr
    
14.                 Next
    
15.                 ActiveWorkbook.WorkbookSet.ReleaseLock()
    
16.             End If

复制代码

郭大侠所过之处，春暖花开。

郭大侠所过之处，春暖花开。