问答网

当前位置: 首页 > 知识问答 > 如何批量删除空白行

如何批量删除空白行

知识问答 浏览4次

要批量删除空白行,可以使用以下方法:

1、使用Excel的筛选功能,打开Excel文件,点击“数据”选项卡,然后点击“筛选”按钮,在工作表中的所有列标题上右键单击,选择“筛选”,然后取消勾选所有列的筛选器,这样,所有的空白行就会被隐藏起来,逐行检查每一行的数据,如果发现有空白行,直接将整行数据删除即可。

2、使用VBA代码,打开Excel文件,按下“Alt+F11”键打开VBA编辑器,在VBA编辑器中插入一个新的模块,并在模块中输入以下代码:

Sub 删除空白行()    Dim ws As Worksheet    Dim rng As Range    Dim lastRow As Long        Set ws = ActiveSheet    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row        For i = lastRow To 1 Step -1        Set rng = ws.Rows(i)        If Application.WorksheetFunction.CountA(rng) = 0 Then            rng.delete        End If    Next iEnd Sub

这段代码会遍历工作表中的每一行,如果该行的数据为空白(即该行为空),则将其删除,按下“F5”键运行代码即可批量删除空白行。