当前位置: 主页 > Office办公 > Excel专区 > Excel教程 > excel 删除数据区域内的所有空行的四种方法:排序、高级筛选、自动筛选、VBA编写

excel 删除数据区域内的所有空行的四种方法:排序、高级筛选、自动筛选、VBA编写

  • 2022-03-26
  • 来源/作者: 菜鸟图库/ 菜鸟图库
  • 535 次浏览

excel 删除数据区域内所有空行的方法有多种,比如排序、高级筛选、自动筛选、VBA编写。下面小编就这几种删除空行的方法逐一介绍。

  本文实例为员工的工资和个税清单。在这个数据清单中就存在一些空行,为了制造数据透视表,首先就需要将这些空行删除掉。

  第一种删除空行的方法:排序法
  第一步,在数据清单的右侧插入一个辅助列,D列。
第二步,在D列中输入1,2,3,4,5,6,……连续的自然数序列。
第三步,单击“数据”——“排序”,对职工姓名列(A列)进行升序排序,这样就将数据区域内的所有空行排在了数据区域的底部。
第四步,删除数据区域内底部的所有空行。
第五步,对D列进行升序排列,恢复数据的原始位置。
第六步,删除辅助列,就得到删除所有空行后的数据区域。

  第二种删除空行的方法方法:高级筛选法
  在利用高级筛选工具筛选并删除数据区域内的所有空行之前,首先要设置条件区域。进行设置条件区域需要了解条件区域的设置规则。
为了筛选并删除数据区域内的所有空行,需要对数据区域内各列的数据进行判断,也就是判断在某行各列是否有数据。对于文本型数据,星号(*)表示有数据,对于数值型数据,不等于好(<>)表示有数据,这样,就可以在原始数据区域之外的任意单元格设置条件区域。
设置完成条件区域后,单击“数据”——“筛选”——“高级筛选”命令,弹出高级筛选对话框,在“列表区域”文本框输入列表区域“$A$1:$C$20”,在“条件区域”输入“$E$2:$G$5”,选中“将筛选结果复制到其他位置”, 并在“复制到”输入“$I$1:$K$1”,单击确定即可。

  第三种删除空行的方法方法:自动筛选法
  第一步,单击“数据”——“筛选”——“自动筛选”命令。
第二步,从“姓名”单元格的下拉列表中选择(非空白)选项,得到筛选结果。
第三步,选取数据区域的所有单元格,按下F5键,弹出“定位”对话框,单击“定位条件”,选择“可见单元格”,确定。
第四步,复制,在需要保存数据的空白单元格单击,粘贴。
第五步,删除原始数据区域。

  第四种删除空行的方法方法:VBA代码
  编写下面一段出现,运行这段程序,就可以迅速的将原始数据区域内的所有空行删除。
Sub DeleteEmptyRows()
Dim LastRow As Long
Dim r As Long
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
Application.ScreenUpdating = True
End Sub