首页 > 电脑专区 > 互联网 >

excel删除空白行

来源:互联网 2023-03-02 10:09:35 466

Excel工作表上面含有大量空白行,如何才能快速的将这些空白行删除?下面举个例子分享一下。8jF办公区 - 实用经验教程分享!

excel删除空白行8jF办公区 - 实用经验教程分享!

工具/原料

  • 计算机
  • 操作系统:Windows 7
  • 办公软件:Excel 2010

方法一:借助筛选功能删除空白行

  • 1

    打开Excel表格,选择A、B、C、D共4列。8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 2

    依次点击【开始】、【排序和筛选】、【筛选】。8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 2该信息非法爬取自百度经验
  • 3

    在A列的筛选里边只选择“空白”。8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 4

    同样,B、C、D列筛选里边也都只选择“空白”。8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 5

    选择已经筛选出来的空白行,单击右键,选择“删除行”。8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 6

    选择第1行,依次点击【开始】、【排序和筛选】、【筛选】。8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 7

    Excel表格上面的空白行已经被删除。8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 方法二:使用VBA程序处理

  • 1

    点击【开发工具】、【Visual Basic】调出VBA编辑器。8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 2

    在VBA编辑器上面点击【插入】、【模块】。8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 3

    模块的代码框里边输入以下VBA程序代码,再按【F5】键运行程序。8jF办公区 - 实用经验教程分享!

    Sub Delete_Rows()8jF办公区 - 实用经验教程分享!

    Dim i1, i2, i38jF办公区 - 实用经验教程分享!

    On Error Resume Next '忽略运行过程中可能出现的错误8jF办公区 - 实用经验教程分享!

    Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet18jF办公区 - 实用经验教程分享!

    8jF办公区 - 实用经验教程分享!

    8jF办公区 - 实用经验教程分享!

    For i1 = 2 To 10000 '从第2行到10000行8jF办公区 - 实用经验教程分享!

    8jF办公区 - 实用经验教程分享!

    8jF办公区 - 实用经验教程分享!

    i2 = Application.WorksheetFunction.CountIf(mysheet1.Range(mysheet1.Cells(i1 - i3, 1), _8jF办公区 - 实用经验教程分享!

    mysheet1.Cells(i1 - i3, 4)), "")8jF办公区 - 实用经验教程分享!

    '统计同一行上面A列到D列空白单元格数量8jF办公区 - 实用经验教程分享!

    8jF办公区 - 实用经验教程分享!

    If i2 = 4 Then '如果空白单元格数是4个,则8jF办公区 - 实用经验教程分享!

    mysheet1.Rows(i1 - i3).Delete Shift:=xlUp '删除该行8jF办公区 - 实用经验教程分享!

    i3 = i3 1 '累计删除空白行数8jF办公区 - 实用经验教程分享!

    End If8jF办公区 - 实用经验教程分享!

    8jF办公区 - 实用经验教程分享!

    Next8jF办公区 - 实用经验教程分享!

    8jF办公区 - 实用经验教程分享!

    8jF办公区 - 实用经验教程分享!

    End Sub8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 4

    回到Excel工作表界面,空白行已经被删除。8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 总结

  • 1

    方法一:借助筛选功能删除空白行8jF办公区 - 实用经验教程分享!

    1、选择含有数据的列。8jF办公区 - 实用经验教程分享!

    2、点击【开始】、【排序和筛选】、【筛选】。8jF办公区 - 实用经验教程分享!

    3、在所有筛选列里边均只选“空白”。8jF办公区 - 实用经验教程分享!

    4、选择已经筛选出来的空白行,单击右键,选择“删除行”。8jF办公区 - 实用经验教程分享!

    5、选择第1行,点击【开始】、【排序和筛选】、【筛选】。8jF办公区 - 实用经验教程分享!

    6、筛选功能解除,Excel表格空白行删除完成。8jF办公区 - 实用经验教程分享!

    方法二:使用VBA程序删除空白行8jF办公区 - 实用经验教程分享!

    1、点击【开发工具】、【Visual Basic】。8jF办公区 - 实用经验教程分享!

    2、在VBA编辑器上面点击【插入】、【模块】。8jF办公区 - 实用经验教程分享!

    3、输入VBA程序代码,之后按【F5】键运行程序。8jF办公区 - 实用经验教程分享!

    4、Excel表格空白行删除完成。8jF办公区 - 实用经验教程分享!

    excel删除空白行8jF办公区 - 实用经验教程分享!

  • 注意事项

    • 数据无价,空白行删除之前先做好备份,以免丢失而无法找回。
    • 操作界面及功能可能因操作系统、软件版本不同而存在差异。
    • 如果程序代码复制到代码框里面,上下行连接符“_”下面可能还会有一个空白行,此时把这个空白行删除就不会报错。

    以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!8jF办公区 - 实用经验教程分享!


    标签: excel删除

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码