多语言展示
当前在线:901今日阅读:60今日分享:41

excel删除空白行

Excel工作表上面含有大量空白行,如何才能快速的将这些空白行删除?下面举个例子分享一下。
工具/原料
1

计算机

2

操作系统:Windows 7

3

办公软件:Excel 2010

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

打开Excel表格,选择A、B、C、D共4列。

3

在A列的筛选里边只选择“空白”。

4

同样,B、C、D列筛选里边也都只选择“空白”。

5

选择已经筛选出来的空白行,单击右键,选择“删除行”。

6

选择第1行,依次点击【开始】、【排序和筛选】、【筛选】。

7

Excel表格上面的空白行已经被删除。

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

点击【开发工具】、【Visual Basic】调出VBA编辑器。

2

在VBA编辑器上面点击【插入】、【模块】。

3

模块的代码框里边输入以下VBA程序代码,再按【F5】键运行程序。Sub Delete_Rows()Dim i1, i2, i3On Error Resume Next  '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets('Sheet1')  '定义工作表Sheet1 For i1 = 2 To 10000  '从第2行到10000行  i2 = Application.WorksheetFunction.CountIf(mysheet1.Range(mysheet1.Cells(i1 - i3, 1), _ mysheet1.Cells(i1 - i3, 4)), '') '统计同一行上面A列到D列空白单元格数量  If i2 = 4 Then  '如果空白单元格数是4个,则  mysheet1.Rows(i1 - i3).Delete Shift:=xlUp  '删除该行  i3 = i3 + 1    '累计删除空白行数 End If Next End Sub

4

回到Excel工作表界面,空白行已经被删除。

总结

方法一:借助筛选功能删除空白行1、选择含有数据的列。2、点击【开始】、【排序和筛选】、【筛选】。3、在所有筛选列里边均只选“空白”。4、选择已经筛选出来的空白行,单击右键,选择“删除行”。5、选择第1行,点击【开始】、【排序和筛选】、【筛选】。6、筛选功能解除,Excel表格空白行删除完成。方法二:使用VBA程序删除空白行1、点击【开发工具】、【Visual Basic】。2、在VBA编辑器上面点击【插入】、【模块】。3、输入VBA程序代码,之后按【F5】键运行程序。4、Excel表格空白行删除完成。

注意事项
1

数据无价,空白行删除之前先做好备份,以免丢失而无法找回。

2

操作界面及功能可能因操作系统、软件版本不同而存在差异。

3

如果程序代码复制到代码框里面,上下行连接符“_”下面可能还会有一个空白行,此时把这个空白行删除就不会报错。

推荐信息