Excel VBA：将行号存入数组批量删行遇运行时错误5

先帮你拆解Run-time error '5'的核心问题，再给出严谨的修正代码和细节说明：

错误根源分析 #

1. 循环逻辑冗余且易越界：你用For x = 1 To LastRow做外层循环，但实际代码是按分组跳行处理的，这会导致循环执行多余次数，甚至在CurrentRow超出数据范围后，引用空单元格引发异常。
2. 未限定工作表的Range引用：部分Range调用没有指定ws4，虽然你激活了目标工作表，但这种写法不严谨，容易在复杂环境下触发跨表引用错误。
3. 空数组处理缺失：如果没有找到任何需要删除的行，MyArray是空的，Join操作会生成无效的Range地址，直接触发参数错误。
4. 空值判断逻辑不完善：当CurrentRow超过LastRow时，Range("B" & CurrentRow)会引用空白单元格，后续的CountIf会出现不可预期的结果。

修正后的代码 #

Sub DeleteRows()
    Dim ws4 As Worksheet: Set ws4 = Worksheets("Sheet1")
    Dim LastRow As Long
    Dim CurrentRow As Long
    Dim GroupValue As Variant
    Dim GroupTotal As Long
    Dim MyArray() As Long
    Dim y As Long
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    ' 获取B列最后一行数据（确保从第6行开始统计）
    LastRow = ws4.Cells(ws4.Rows.Count, "B").End(xlUp).Row
    ' 如果数据行少于第6行，直接退出避免无效操作
    If LastRow < 6 Then
        Application.ScreenUpdating = True
        Exit Sub
    End If
    
    CurrentRow = 6
    y = 0
    
    ' 按分组循环，直到超出数据范围
    Do While CurrentRow <= LastRow
        GroupValue = ws4.Range("B" & CurrentRow).Value
        ' 跳过B列的空单元格，避免空值的CountIf异常
        If IsEmpty(GroupValue) Then
            CurrentRow = CurrentRow + 1
            Continue Do
        End If
        
        ' 严格限定CountIf的范围为目标工作表的B6到最后一行
        GroupTotal = Application.WorksheetFunction.CountIf(ws4.Range("B6:B" & LastRow), GroupValue)
        
        ' 记录唯一值对应的行号
        If GroupTotal = 1 Then
            ReDim Preserve MyArray(y)
            MyArray(y) = CurrentRow
            y = y + 1
        End If
        
        ' 跳到下一组的起始行
        CurrentRow = CurrentRow + GroupTotal
    Loop
    
    ' 仅当数组有数据时执行删除操作，避免空引用错误
    If y > 0 Then
        ' 用Union合并需要删除的行，比字符串拼接更可靠
        Dim deleteRange As Range
        Set deleteRange = ws4.Rows(MyArray(0))
        For i = 1 To UBound(MyArray)
            Set deleteRange = Union(deleteRange, ws4.Rows(MyArray(i)))
        Next i
        deleteRange.Delete
    End If
    
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

• 替换循环方式：用Do While替代原有的For x循环，确保只在有效数据范围内处理，彻底避免多余循环和越界问题。
• 严格限定工作表：所有Range和Rows调用都绑定ws4，彻底杜绝跨工作表引用的潜在风险。
• 空数组防护：先判断数组是否有内容，再执行删除操作，避免空地址引发的参数错误。
• 更安全的行合并方式：用Union方法合并需要删除的行，比直接拼接字符串更稳定，尤其适合行号较多的场景。
• 空值处理：增加了对B列空单元格的判断，避免空值的CountIf导致的逻辑异常。

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