室内设计培训
平面设计培训
部落窝教育
网站首页 >> Excel教程 >> 文章内容

数据透视表系列教程二

[日期:2010-12-19]   来源:IT部落窝  作者:IT部落窝   阅读:7642[字体: ]
内容提要:删除数据区域内的所有空行的四种方法:排序、高级筛选、自动筛选、VBA编写。

  删除数据区域内所有空行的方法有多种,比如排序、高级筛选、自动筛选、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
   

单击下载数据透视表系列教程源文件

IT部落窝PS,CDR,213班 分享到: QQ空间 新浪微博 腾讯微博 人人网
photoshop教程
Photoshop教程
平面设计教程
Photoshop教程