Excel删除空格

上一篇 / 下一篇  2012-10-19 09:15:20 / 个人分类:Excel

第一招 定位删除法
利用Excel中提供的“定位”功能,一次性定位表格中的所有空行,然后将其“一网打尽”。
单击“编辑”菜单中的“定位”命令,在弹出的“定位”对话框中单击“定位条件”按钮,选择“定位条件”对话框中的“空值”单选钮,如图1所示,单击“确定”按钮。这样就可以将表格中所有的空行全部选中了。然后右击选中区域,选择“删除”命令中的“整行”就可以了。
小提示
使用该方法删除时,要确保其他非空行中的所有单元格内均填有数值,否则会出现误删除记录的现象。
第二招 筛选删除法
利用Excel中提供的筛选功能将表格所有的空行筛选出来,然后将其删除。
由于Excel在筛选时只能识别连续的行,遇到空行时则不会继续向下进行筛选,所以在进行筛选操作之前,我们可以在表格中的任意位置插入一列,在该列中填充一个简单的序列让表格连续起来。然后依次单击“数据”菜单中的“筛选”命令,选择“自动筛选”命令,任选一个字段(如“性别”),选择筛选条件为“空白”,如图2所示,这样就可以将空行筛选出来了,接下来选中这些空行将其删除就可以了,最后再将非空行全部显示出来。
小提示
如果某记录的被筛选字段(如性别)所对应的单元格没有填写数据也会被筛选出来,此时可再对其他字段进行筛选,直到筛选出来的记录全部为空行为止。
第三招 排序删除法
利用“升序”或“降序”操作,将表格中所有的空行排列到一起,然后将其删除。
与筛选操作类似,Excel中的排序操作也只能在连续的非空行中进行,所以也必须在表格中新添加一个填有简单序列的列。然后任选一个字段,对该字段进行升序或降序排列,此时所有的空行将会排序到表格的最后,然后将其删除就可以了。


小提示
由于使用了排序操作,使得表格中原有记录的顺序被打乱,此时只需对新增的“空列”字段(如图2中的A)进行升序排序就可以了。
第四招  VBA代码删除法
借助功能强大的Office VBA,我们可以无所不能。首先利用“控件工具箱”在表格中绘制一个按钮,接着双击该按钮,在其Click事件中写上下面的代码就可以了。
Private Sub CommandButton1_Click()
Dim b, c As Integer
Dim a As Range
For b = 1 To Range("b65536").End(xlUp).Row
k = 0: Set a = Cells(b, 1)
'
测试该行的连续4个列的值是否为空(用户可按要求指定该数字的大小或所有列cells(xlright)columns)
For c = 1 To 4
If Cells(b, c) = "" Then k = k + 1
Next c
'
如果该行连续4个单元格为空,则删除该行

If k = 4 Then
a.EntireRow.delete shift:=xlUp
End If
Next b
End Sub
小提示
如果将该代码创建为“宏”并指给一个自定义的工具栏按钮(见图3),这样就可以一劳永逸了。


TAG:

 

评分:0

我来说两句

Open Toolbar