excel vba 如何去掉单元格中的空格
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、然后就完成了。
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、然后就完成了。
好懂的慢速宏：
Sub 宏1()
Dim r as Range
For Each r In ActiveSheet.UsedRange.Cells
r = Replace(r, " ", "")
Next r
End Sub
注意Replace行，第二个参数是空格，第三个为空。
|
广告 您可能关注的内容 |
