VBA代码报错：Subscript out of range，删除全0行求助

嘿，作为新手能尝试用VBA解决问题已经很棒了！我来帮你拆解你遇到的错误，再给你一个高效且稳定的解决方案。

先聊聊你遇到的两个错误 #

1. Run-time error 9: Subscript out of range
   这个错误是因为你用Sheets(3)引用工作表，但你的工作簿里可能根本没有第3个工作表，或者工作表的索引顺序变了。改成ws1后报错，大概率是你没提前正确声明和赋值ws1对象（比如没写Dim ws1 As Worksheet和Set ws1 = ThisWorkbook.Worksheets("你的工作表名称")）。

2. Type mismatch
   这个错误出在Application.Index那行，原因是当没有符合保留条件的行时，Split(Mid(c00, 2), "|")会得到一个空数组，和Transpose搭配后传给Index就会出现类型不匹配。这种拼接字符串再拆分的方式本身就容易出问题，而且不够直观。

高效且稳定的解决方案 #

下面的代码会帮你：

• 批量将空单元格填充为0
• 快速识别并删除D到I列全为0的行
• 避免运行慢和报错的问题

Sub DeleteAllZeroRows()
    Dim ws1 As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim rowsToDelete As Range
    
    ' 1. 声明并指定要操作的工作表（替换成你的实际工作表名称）
    Set ws1 = ThisWorkbook.Worksheets("概览列表")
    
    ' 2. 关闭屏幕刷新和自动计算，大幅提升运行速度
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    On Error Resume Next
    ' 3. 批量将D到I列的空单元格填充为0
    ws1.Range("D:I").SpecialCells(xlCellTypeBlanks).Value = 0
    On Error GoTo 0
    
    ' 4. 获取数据的最后一行（避免遍历空行）
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    ' 5. 从下往上遍历行，收集要删除的行（防止删除行后行号混乱）
    For i = lastRow To 2 Step -1
        ' 检查当前行的D到I列是否全部为0
        If WorksheetFunction.CountIf(ws1.Range("D" & i & ":I" & i), "<>0") = 0 Then
            If rowsToDelete Is Nothing Then
                Set rowsToDelete = ws1.Rows(i)
            Else
                Set rowsToDelete = Union(rowsToDelete, ws1.Rows(i))
            End If
        End If
    Next i
    
    ' 6. 一次性删除所有目标行（比逐行删除快很多）
    If Not rowsToDelete Is Nothing Then
        rowsToDelete.Delete Shift:=xlUp
    End If
    
    ' 7. 恢复Excel的正常设置
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    MsgBox "全0行已删除完成！"
End Sub

给新手的贴心说明 #

• 指定工作表：用Worksheets("工作表名称")代替数字索引，避免因工作表顺序变化导致错误。
• 关闭屏幕刷新：Excel每操作一行都刷新屏幕会拖慢速度，关闭后运行完再恢复，能让代码快好几倍。
• 批量填充空单元格：用SpecialCells快速定位空单元格，比循环每个单元格高效太多。
• 从下往上遍历：如果从上往下删行，删除一行后下面的行号会前移，导致漏删；从下往上就不会有这个问题。
• 批量删除行：先把要删的行收集到一个Range对象里，最后一次性删除，避免频繁操作工作表带来的卡顿。

额外提示 #

• 运行代码前记得保存工作簿，避免意外情况丢失数据。
• 如果你的全0行判断范围不是D到I列，只要修改代码里的Range("D:I")和Range("D" & i & ":I" & i)为你的实际列范围即可。

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