使用VBA删除Excel PxV表D列空值行及自动运行实现方法

核心删除逻辑代码 #

遍历列删除行必须从数据区域最后一行向上遍历，从上到下遍历的写法会因为删除行后行号偏移漏判数据，是这类需求最常见的bug。针对公式返回""的假空单元格，直接判断单元格值是否为零长度字符串即可同时覆盖真空单元格、公式返回空文本的假空单元格两类目标，不需要额外做特殊类型判断。

Sub DeleteFakeBlankRowsInD()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 绑定目标工作表
    Set ws = ThisWorkbook.Worksheets("PxV")
    ' 关闭屏幕更新大幅提升执行速度
    Application.ScreenUpdating = False
    
    ' 定位D列最后一个有公式返回值的行号，避免遍历整列浪费性能
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    
    ' 从最后一行向上逐行判断
    For i = lastRow To 1 Step -1
        ' 匹配所有值为空的单元格（含假空）
        If ws.Cells(i, "D").Value = "" Then
            ws.Rows(i).Delete
        End If
    Next i
    
    ' 恢复默认设置
    Application.ScreenUpdating = True
End Sub

自动触发配置 #

录入新数据后自动执行、无需手动触发的效果，通过工作表原生的Change事件即可实现，不需要借助第三方插件或者定时任务：

• 按Alt+F11打开VBA编辑器，在左侧工程资源管理器中双击PxV工作表对象
• 在打开的代码编辑窗口顶部，左侧下拉菜单选择Worksheet，右侧下拉菜单选择Change，编辑器会自动生成事件过程的框架
• 将如下代码填入事件过程中，代码内置了防递归、防出错的兜底处理：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当编辑区域涉及D列时才执行删除逻辑，减少不必要的性能消耗
    If Not Intersect(Target, Me.Columns("D")) Is Nothing Then
        On Error GoTo ErrHandler
        Application.EnableEvents = False ' 临时关闭事件，避免删行触发递归死循环
        Call DeleteFakeBlankRowsInD
    End If

ExitSub:
    ' 无论执行是否成功，都恢复Excel默认设置
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    Resume ExitSub
End Sub

关键注意点：不要省略关闭事件的代码，否则删除行的操作会再次触发Change事件，无限递归会直接导致Excel无响应。

内容的提问来源于stack exchange，提问作者LilTuchman