excel vba 如何去掉单元格中的空格

Question

如题所述

Answer 1

1、以去除下列数据单元格内空格为例。

2、绘制一个控制按钮，本教材以插入一个矩形形状为例。

3、从Excel窗口切换到VBA窗口，

4、插入模块，复制粘贴以下代码：

Sub Clear_Space()

Dim rng As Range

Set rng = Selection

  For Each rng In Selection

     rng.Replace What:=" ", Replacement:="", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

  Next

End Sub

5、返回Excel窗口，为形状按钮指定宏。

6、选择需要去除空格的单元格区域，点击按钮即可。

7、然后就完成了。

Answer 2

1、以去除下列数据单元格内空格为例。

2、绘制一个控制按钮，本教材以插入一个矩形形状为例。

3、从Excel窗口切换到VBA窗口，

4、插入模块，复制粘贴以下代码：

Sub Clear_Space()

Dim rng As Range

Set rng = Selection

  For Each rng In Selection

     rng.Replace What:=" ", Replacement:="", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

  Next

End Sub

5、返回Excel窗口，为形状按钮指定宏。

6、选择需要去除空格的单元格区域，点击按钮即可。

7、然后就完成了。

本回答被网友采纳

Answer 3

好懂的慢速宏：

Sub 宏1()
    Dim r as Range
    For Each r In ActiveSheet.UsedRange.Cells
        r = Replace(r, " ", "")
    Next r
End Sub

注意Replace行，第二个参数是空格，第三个为空。

本回答被网友采纳

Answer 4

录一个宏，查看代码