无需循环删除指定空白区域所在整行（求高效VBA单行代码）

高效单行VBA代码（无循环，避免崩溃） #

要高效删除工作表Iso_Journal中A:P列区域内空白行（以A列空白判定整行为目标行为例，可按需调整筛选逻辑），推荐用AutoFilter实现的单行代码，稳定性和效率远优于直接调用SpecialCells(xlBlanks)：

With Worksheets("Iso_Journal"): .Range("A1:P" & .Cells(.Rows.Count, "A").End(xlUp).Row).AutoFilter Field:=1, Criteria1:="": .AutoFilter.Range.Offset(1).EntireRow.Delete: .AutoFilter: End With

代码细节说明 #

• 先通过Range("A1:P" & .Cells(.Rows.Count, "A").End(xlUp).Row)锁定实际数据范围，避免处理无意义的空白行区域，减少资源消耗
• 利用AutoFilter筛选目标空白行（若需判定A:P列全为空，可扩展筛选条件为多列空白）
• Offset(1)用于跳过表头行（无表头则直接删除.AutoFilter.Range.EntireRow）
• 最后取消AutoFilter，恢复工作表正常显示状态

方案1崩溃原因解析 #

Worksheets("Iso_Journal").Range("A:P").EntireRow.SpecialCells(xlBlanks).EntireRow.Delete 会选中A:P区域内所有空白单元格，同一行若存在多个空白单元格会被重复标记删除，大量重复操作直接导致Excel内存溢出、程序崩溃。

方案2的优化方向 #

方案2仅完成筛选动作，只需补充删除筛选结果的逻辑，即可满足需求——也就是上面给出的单行代码，既保留了AutoFilter处理大数据的高效性，又实现了删除目标行的核心需求。

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