删除Excel电子表格中字符之间的空格

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表文件需进行删除空格，将该文件导入执行宏就可以了。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18