购彩之家

返回购彩之家设为购彩之家加入收藏
公告: . 昆明市中医医院2021年度专项编制招聘拟聘人员公示 昆明市中医医院2021年专项编制招聘考核成绩及拟进入考察人选公示 昆明市中医医院2021年度专项编制招聘公告 中共昆明市委组织部2021年拟遴选公务员人选公示 中共昆明市委组织部2021年拟遴选公务员人选公示
公告
巧妙删除Excel文档中的空格
发布时间:2005-06-20 13:28来源:
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表文件需进行删除空格,将该文件导入执行宏就可以了。