使用Offset移动指定行触发Error424对象错误，需实现第87行空单元格删除

嘿，我来帮你搞定这个Error 424（需要对象）的问题，同时完美实现你清理空行让内容上移的需求！

首先拆解下你遇到的报错：Error 424几乎都是因为对象变量没正确赋值导致的——比如你如果写了rng2 = Selection而不是Set rng2 = Selection，或者你的rng2根本就是Nothing（没指向任何有效单元格）的时候去调用.Offset方法，就会触发这个错误。

另外，你原来的思路里有个隐形坑：如果从上往下遍历删行，删完一行后下面的行会自动上移，导致你跳过了下一行的检查。正确的做法是从下往上遍历，这样就不会漏检。

给你一套直接能用的修正代码，完全避开这些问题：

Sub CleanEmptyRowsAndShiftUp()
    Application.ScreenUpdating = False ' 关闭屏幕更新，加快运行速度
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 直接绑定目标工作表，别依赖Activate，容易出问题
    Set ws = ThisWorkbook.Worksheets("Mine")
    
    ' 获取数据区域的最后一行（这里默认用A列找最后一行，你可以改成实际的列）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行往第87行倒着遍历，避免删行后行号错乱
    For i = lastRow To 87 Step -1
        ' 这里可以根据你的需求调整检查范围：
        ' 1. 检查整行是否为空：If Application.CountA(ws.Rows(i)) = 0 Then
        ' 2. 检查特定列（比如A到C列）：If Application.CountA(ws.Range("A" & i & ":C" & i)) = 0 Then
        ' 3. 示例：检查当前行的A列是否为空
        If IsEmpty(ws.Cells(i, "A")) Then
            ws.Rows(i).Delete Shift:=xlUp ' 删除该行，下方内容自动上移
        End If
    Next i
    
    Application.ScreenUpdating = True ' 恢复屏幕更新
    MsgBox "空行清理完成！", vbInformation
End Sub

关键注意点： #

• 别依赖Activate或者Select：直接用Set ws = ...绑定工作表，这样不管当前激活的是哪个表，代码都能正确运行
• 倒序遍历：这是处理删行操作的黄金法则，避免行号错位导致漏检
• 对象赋值要加Set：如果你以后还要用Offset，记住Range是对象，必须写Set rng2 = rng2.Offset(-1)，不能直接写rng2 = rng2.Offset(-1)

如果你原来的代码里一定要保留rng2的用法，那得确保它是有效Range对象，比如：

' 正确的对象赋值方式
Set rng2 = ws.Range("A87:A" & lastRow)
' 然后可以用Offset（比如把rng2往上移一行）
Set rng2 = rng2.Offset(-1)

这样就不会再触发Error 424啦！

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