Excel数据许多单元格字符间(如以两个字命名的姓名间)常常会有空格,这样既影响美观,也不便于操作!
如何删除字符间的空格呢?具体方法如下:
执行“工具→宏→Visul Basic编辑器”命令或按下Alt+F11组合键,在Visul Basic编辑器中选择“插入→添加模块”,在代码窗口输入以下代码:
Sub 删除空格()
Dim i%
For i=1 To 10 单元格空格在10个以内
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, MatchByte:=False
Next i
End Sub
输入完成后,关闭VBA窗口,返回到工作表编辑窗口,在Excel文档中执行宏即可。
为了操作更加方便,可以将宏命令添加到常用工具栏上,具体效果,实现方法如下:
执行“工具→自定义”命令,在弹出的 “自定义”对话框中,单击“命令”选项卡,在 “类别”命令中选择“新菜单”,再将“命令”中的“新菜单”拖放到菜单栏中。
右击“新菜单”,从弹出的快捷菜单中选择“命名”,将新菜单命名为“删除空格”,并指定刚建立的宏,要去除文件中的空格,只要点击菜单栏上的删除空格按钮就可以了。
也可以将宏代码导出到指定文件夹,以后如果其他Excel文档需要进行转换,将文件导入即可。步骤如下:在VBA编辑窗口,选中模块(代码),单击“文件→导出文件”,在导出文件窗口,选择文件名及保存路径,保存即可。
如果其他Excel表文件需进行删除空格,将该文件导入执行宏就可以了。