Excel数据许多单元格字符间(如以两个字命名的姓名间)常常会有空格,这样既影响美观, 也不便于操作。如何删除字符间的空格呢?具体方法如下: 执行“工具→宏→Visul Basic编辑器”命令或按下Alt+F11组合键,在Visul Basic编辑器中选择 “插入→添加模块”,在代码窗口输入以下代码(如图1): 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文档中执行宏即可。 为了操作更加方便,可以将宏命令添加到常用工具栏上,具体效果如图2,实现方法如下: 执行“工具→自定义”命令,在弹出的 “自定义”对话框中,单击“命令”选项卡,在 “类 别”命令中选择“新菜单”,再将“命令”中的“新菜单”拖放到菜单栏中。右击“新菜单”, 从弹出的快捷菜单中选择“命名”,将新菜单命名为“删除空格”,并指定刚建立的宏,如图3。 要去除文件中的空格,只要点击菜单栏上的[删除空格]按钮就可以了。也可以将宏代码导出到指 定文件夹,以后如果其他Excel文档需要进行转换,将文件导入即可。步骤如下:在VBA编辑窗 口,选中模块(代码),单击“文件→导出文件”,在导出文件窗口,选择文件名及保存路径, 保存即可。如果其他Excel表文件需进行删除空格,将该文件导入执行宏就可以了。