计算机
操作系统:Windows 7
办公软件:Excel 2010
打开Excel表格,选择A、B、C、D共4列。
在A列的筛选里边只选择“空白”。
同样,B、C、D列筛选里边也都只选择“空白”。
选择已经筛选出来的空白行,单击右键,选择“删除行”。
选择第1行,依次点击【开始】、【排序和筛选】、【筛选】。
Excel表格上面的空白行已经被删除。
点击【开发工具】、【Visual Basic】调出VBA编辑器。
在VBA编辑器上面点击【插入】、【模块】。
模块的代码框里边输入以下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
回到Excel工作表界面,空白行已经被删除。
方法一:借助筛选功能删除空白行1、选择含有数据的列。2、点击【开始】、【排序和筛选】、【筛选】。3、在所有筛选列里边均只选“空白”。4、选择已经筛选出来的空白行,单击右键,选择“删除行”。5、选择第1行,点击【开始】、【排序和筛选】、【筛选】。6、筛选功能解除,Excel表格空白行删除完成。方法二:使用VBA程序删除空白行1、点击【开发工具】、【Visual Basic】。2、在VBA编辑器上面点击【插入】、【模块】。3、输入VBA程序代码,之后按【F5】键运行程序。4、Excel表格空白行删除完成。
数据无价,空白行删除之前先做好备份,以免丢失而无法找回。
操作界面及功能可能因操作系统、软件版本不同而存在差异。
如果程序代码复制到代码框里面,上下行连接符“_”下面可能还会有一个空白行,此时把这个空白行删除就不会报错。