删除EXCEL里面的空白行，几行代码直接搞定

EXCEL中经常会遇到需要去除空白行，通过定位筛选有时候就是不行，写一个宏来实现。

根据EXCEL某一列删除空白行，这儿以D列来举例，到时候可以自己改
Sub 根据D列删除空白行()
    Dim ws As Worksheet
    Dim i As Long
    
    ' 设定想要处理的工作表名称，这里以"Sheet1"为例，可以根据实际情况修改
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 从最后一行向前遍历，避免因删除行导致的行号错位
    For i = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row To 1 Step -1
        ' 检查D列（第4列）的单元格是否为空
        If ws.Cells(i, 4).Value = "" Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

ALT+F11打开，复制代码，ALT+F8运行宏就行啦