运行时错误“91”：代码运行后未设置对象变量或块变量

Question

我正在编写我的第一个 VBA 代码，并且有一组复杂的步骤来处理 Excel 中的数据。一切正常，除了这个运行良好，但最后给出错误，我很确定这是因为在数据用尽后的某个时刻，它返回“无”并导致“运行时错误'91'：对象变量或未设置块变量”崩溃。我不知道如何解决这个问题。有什么建议么？我确信这很简单——是的，这段代码很慢，但它确实有效。谢谢！

Sub D_GSB_Sort_Data()
Dim MyCell As Range
    For Each MyCell In Range("A2:A5000")
        ActiveWorkbook.ActiveSheet.Columns(1).Find("*Submitted*").Select
        ActiveCell.Offset(0, 3).Cut ActiveCell.Offset(0, 0)
        ActiveCell.Offset(1, 1).Cut ActiveCell.Offset(0, 1)
        ActiveCell.Offset(2, 1).Cut ActiveCell.Offset(0, 2)
        ActiveCell.Offset(3, 1).Cut ActiveCell.Offset(0, 3)
        ActiveCell.Offset(4, 0).Cut ActiveCell.Offset(0, 4)       
Next MyCell
End Sub

Answer 1

编辑：将另一个单元格剪切到 MyCell 会破坏该引用，所以最后...

Sub D_GSB_Sort_Data()
    Dim MyCell As Range, ws As Worksheet

    Set ws = ActiveSheet

    For Each MyCell In ws.Range("A2:A" & _
                          ws.cells(ws.Rows.Count, 1).End(xlUp).Row).Cells

        If MyCell.Value Like "*Submitted*" Then
            With MyCell
                .Offset(1, 1).Cut .Offset(0, 1)
                .Offset(2, 1).Cut .Offset(0, 2)
                .Offset(3, 1).Cut .Offset(0, 3)
                .Offset(4, 0).Cut .Offset(0, 4)
                .Offset(0, 3).Cut .Offset(0, 0) '<< this one last!
            End with
        End If
   
    Next MyCell
End Sub