VBA删除Excel空白行代码陷入无限循环，如何修复或优化

• 变量类型不兼容：行号变量定义为Integer类型，在Excel行号超过32767时会触发类型溢出，直接导致流程异常
• 死循环核心诱因：代码绑定了Worksheet_Change事件，但删行操作前没有关闭事件触发开关。删除空白行时会触发工作表内容变化，进而反复回调Change事件里的单元格格式设置逻辑，形成嵌套触发的无限循环
• 配置笔误：原代码在循环结束后，错误地再次将Application.ScreenUpdating设为False，操作全程没有将该属性恢复为True，后续界面响应会卡在无响应状态
• 性能缺陷：逐行删除的逻辑会反复触发表格重绘，数据量较大时运行效率极低

最小改动修复版（适配原代码逻辑） #

将原删行模块替换为以下代码，不改变原有遍历逻辑的前提下解决循环问题：

Sub 删除全空白行()
    Dim LastRowIndex As Long ' 替换Integer类型适配Excel全量行号范围
    Dim RowIndex As Long
    Dim UsedRng As Range
     
    Set UsedRng = ActiveSheet.UsedRange
    LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count
    ' 关闭屏幕更新和事件触发，避免重复回调
    Application.ScreenUpdating = False
    Application.EnableEvents = False
     
    For RowIndex = LastRowIndex To 1 Step -1
        If Application.CountA(Rows(RowIndex)) = 0 Then
            Rows(RowIndex).Delete
        End If
    Next RowIndex
     
    ' 按操作顺序恢复系统配置
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

高性能批量删行版（适配千行以上数据场景） #

通过联合范围收集所有空白行，一次性完成批量删除，减少重复的删行触发动作：

Sub 批量删除空白行()
    Dim UsedRng As Range, BlankRowRange As Range
    Dim RowIdx As Long
    
    Set UsedRng = ActiveSheet.UsedRange
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 遍历收集全表内的全空白行
    For RowIdx = UsedRng.Row To UsedRng.Row + UsedRng.Rows.Count - 1
        If Application.CountA(Rows(RowIdx)) = 0 Then
            If BlankRowRange Is Nothing Then
                Set BlankRowRange = Rows(RowIdx)
            Else
                Set BlankRowRange = Union(BlankRowRange, Rows(RowIdx))
            End If
        End If
    Next RowIdx
    
    ' 一次性删除所有匹配的空白行
    If Not BlankRowRange Is Nothing Then BlankRowRange.Delete
    
    ' 恢复系统配置
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

• 遵循Option Explicit规则补全所有隐式变量的类型声明，现有代码中lastRow、S、v、W等变量未明确类型，容易引发隐式转换导致的逻辑偏差
• 将删行操作放在宏执行流程的最后步骤执行，避免前置的单元格写入、文本替换、格式调整操作被行号变动打乱定位
• 清理代码块中未实际使用的冗余变量，减少无意义的内存占用

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