[已解决]求VBA代码：快速清除当前工作表A列中所有单元格中的空格键

星光男孩

求VBA代码：快速清除当前工作表A列中所有单元格中的空格键
Book2.rar (8.91 KB, 下载次数: 10)

2012-11-24 02:53 上传

点击文件名下载附件

急用
谢谢了

最佳答案

月排行榜 / 总排行榜

suye1010

2012-11-24 09:57

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

跳转到最佳答案楼层

孤单无所谓

Sub 删除空格()
Dim A As Integer
  Do
    A = A + 1
       If Cells(A, 1) <> "" Then
            Cells(A, 1) = Application.Trim(Cells(A, 1))
        End If
   Loop Until Cells(A + 1, 1) = ""
End Sub

suye1010

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

孤单无所谓

suye1010 发表于 2012-11-24 09:57
Sub 宏1()
    Columns("A:A").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchO ...

我刚刚开始学习VBA。多谢版主指点{:011:}了。。

hwc2ycy

差点看成删除空单元格啊，学习下。

无聊的疯子

选中A列,然后
Ctrl + H 打开查找替换窗口
查找" " ,输入一个空格
替换 "不要输入任何内容"

选项>取消勾选单元格匹配
然后点 替换全部

就行了