VBA高效删除H列含0行报错求助：转换H列为值后删行

原代码错误分析 #

你的代码触发1004错误，核心问题包括：

• 未声明delRange变量，且arr拼写错误（as应为As）
• With ws块未包裹后续操作，导致.Range、.Rows无对应对象引用
• 数组索引错误：单列数组仅含1列，代码中arr(i, 2)超出数组维度
• Cells(2, "H")未加.前缀，错误引用活动工作表单元格而非目标工作表

修正后的高效代码 #

针对45000+行的大数据量，推荐用筛选法替代循环Union，运行效率更高：

Sub ConvertAndDeleteRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    
    ' 禁用屏幕刷新和事件，提升运行速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 指定目标工作表
    Set ws = ThisWorkbook.Sheets("S4 Data")
    
    With ws
        ' 获取H列最后一行
        lastRow = .Cells(.Rows.Count, "H").End(xlUp).Row
        ' 定义H列数据范围（默认第1行为表头）
        Set dataRange = .Range("H1:H" & lastRow)
        
        ' 转换H列为数值格式
        dataRange.NumberFormat = "General"
        dataRange.Value = dataRange.Value
        
        ' 筛选H列值为0的行
        .Range("A1:H" & lastRow).AutoFilter Field:=8, Criteria1:="0"
        
        ' 删除筛选出的可见行（跳过表头）
        On Error Resume Next ' 防止无符合条件行时出错
        .Range("A2:H" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        On Error GoTo 0
        
        ' 取消筛选
        .AutoFilterMode = False
    End With
    
    ' 恢复屏幕刷新和事件
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

代码说明 #

• 禁用屏幕刷新与事件：大幅降低大数据量下的运行耗时
• 筛选法删除行：避免循环Union带来的内存占用问题，效率提升明显
• 错误捕获：防止无0值行时删除操作触发报错
• 全程通过With ws包裹操作，确保所有单元格引用指向目标工作表

若坚持使用数组循环方式，修正后的代码如下：

Sub ConvertAndDeleteRows_ArrayVersion()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim delRange As Range
    Dim arr As Variant
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Set ws = ThisWorkbook.Sheets("S4 Data")
    
    With ws
        lastRow = .Cells(.Rows.Count, "H").End(xlUp).Row
        
        ' 转换H列为数值格式
        .Columns("H").NumberFormat = "General"
        .Columns("H").Value = .Columns("H").Value
        
        ' 将H列数据存入数组（从第2行开始，跳过表头）
        arr = .Range(.Cells(2, "H"), .Cells(lastRow, "H")).Value
        
        ' 初始化删除范围（用空行避免Union报错）
        Set delRange = .Rows(lastRow + 1)
        
        ' 循环数组收集需要删除的行
        For i = LBound(arr, 1) To UBound(arr, 1)
            If arr(i, 1) = 0 Then
                Set delRange = Union(delRange, .Rows(i + 1)) ' 数组索引对应工作表行号+1
            End If
        Next i
        
        ' 删除收集到的行
        delRange.Delete
    End With
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

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