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运行宏就行啦