Excel VBA实现条件上移单元格遇‘对象要求’错误求助

问题背景 #

编写VBA宏用于处理Sheet4中A2:KL3602区域：将区域内非零单元格向上移动，同时保留所有仅含0值的行。运行宏时触发「对象要求」错误，调试指向While循环。

错误代码 #

Sub Macro1()
    Dim ws As Worksheet
    Dim currentCell As Range
    Dim lastCell As Range
    Dim nextCell As Range
    Dim firstColumn As Long

    Set ws = ThisWorkbook.Sheets("Sheet4")
    Set currentCell = ws.Range("A2")
    Set lastCell = ws.Range("KL3602")
    firstColumn = currentCell.Column

    While currentCell.Row <= lastCell.Row
        If currentCell.Value = 0 Then
            ' 删除当前单元格并向上移位
            currentCell.Delete Shift:=xlUp
            
            ' 删除后设置nextCell
            Set nextCell = currentCell
        Else
            ' 移动到下一个单元格
            Set nextCell = currentCell.Offset(1, 0)
        End If
        
        ' 更新currentCell
        Set currentCell = nextCell
    Wend
End Sub

错误原因 #

• 删除currentCell后，该单元格对象已被销毁，此时Set nextCell = currentCell会让nextCell变为Nothing，后续循环访问currentCell.Row时，因对象未定义触发「对象要求」错误。
• 原始代码仅处理A列，未覆盖目标区域，也未判断整行是否全0，不符合需求。

修正后的代码 #

Sub MoveNonZeroCells()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim isAllZero As Boolean
    
    ' 指定目标工作表
    Set ws = ThisWorkbook.Sheets("Sheet4")
    ' 定义目标区域的边界
    lastRow = 3602
    lastCol = ws.Range("KL1").Column
    
    ' 从下往上遍历行，避免删除操作导致的行号混乱
    For i = lastRow To 2 Step -1
        isAllZero = True
        
        ' 检查当前行是否全为0
        For j = 1 To lastCol
            If ws.Cells(i, j).Value <> 0 Then
                isAllZero = False
                Exit For
            End If
        Next j
        
        ' 非全0行，处理行内0值单元格
        If Not isAllZero Then
            ' 从右往左遍历单元格，避免删除导致的列偏移
            For j = lastCol To 1 Step -1
                If ws.Cells(i, j).Value = 0 Then
                    ws.Cells(i, j).Delete Shift:=xlToLeft
                End If
            Next j
        End If
    Next i
End Sub

代码说明 #

1. 从下往上遍历行：避免删除单元格后，上方行的位置偏移导致的遍历遗漏问题。
2. 整行全0判断：先校验每行是否全为0，是则直接保留，不执行删除操作。
3. 从右往左处理单元格：删除行内0值单元格时从右往左操作，避免左侧单元格移位导致的遍历错误。
4. 删除逻辑调整：将行内0值单元格删除并向左移位，实现非零单元格在该行内向上集中的效果，同时完整保留全0行。

内容的提问来源于stack exchange，提问作者Michele-Gabriel Damatar