[已解决]求助：去掉单元格空白部分

htqccw

去掉单元格空白部分.rar (18 KB, 下载次数: 31)

2012-2-24 12:38 上传

点击文件名下载附件 提示:每个单元格后面均有不同的空格,如A3有9个空符、B3有5个空符、C3有3个空符。。。
要求：要达到每个单元格中去掉空白部分。

现用查找替换方法替换成功,操作如下:
1.复制A列中某单元格内的一个空格(为了完全一致).
2.调出替换对话框—粘贴到查找内容中（事先要先清除原进行查找的全部内容与格式）后面加一*号("空格"*),替换内容为无。
3.选中数据区域—点击查找全部---选中查找出来的所有单元格(在对话框内)---全部替换

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-2-24 13:49

1. Sub 去掉空格()
   
2.     Dim arr
   
3.     Dim i As Long, j As Long
   
4.     Dim s As String
   
5.     arr = Range("A3:O" & [A65536].End(xlUp).Row)
   
6.     s = Right(Range("A3"), 1)
   
7.     For i = 1 To UBound(arr)
   
8.         For j = 1 To UBound(arr, 2)
   
9.             arr(i, j) = WorksheetFunction.Substitute(arr(i, j), s, "")
   
10.         Next j
    
11.     Next i
    
12.     Range("A3").Resize(UBound(arr), UBound(arr, 2)) = arr
    
13.     MsgBox "替换完成"
    
14. End Sub

复制代码

跳转到最佳答案楼层

上清宫主

Cells.Replace What:=Right([a3], 1), Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

fjmxwrs

学习了

htqccw

多谢上清宫主，达到目的。好像也是录制的宏，能说说录制时关健的要点思路吗？我录的哪个一用就全替换成空了。谢谢高人指点！

sunjing-zxl

1. Sub 去掉空格()
   
2.     Dim arr
   
3.     Dim i As Long, j As Long
   
4.     Dim s As String
   
5.     arr = Range("A3:O" & [A65536].End(xlUp).Row)
   
6.     s = Right(Range("A3"), 1)
   
7.     For i = 1 To UBound(arr)
   
8.         For j = 1 To UBound(arr, 2)
   
9.             arr(i, j) = WorksheetFunction.Substitute(arr(i, j), s, "")
   
10.         Next j
    
11.     Next i
    
12.     Range("A3").Resize(UBound(arr), UBound(arr, 2)) = arr
    
13.     MsgBox "替换完成"
    
14. End Sub

复制代码