Question

我有一个非常简单的代码，它仅复制一列并将其插入。但是偶尔运行宏会导致上述运行时错误并使Excel崩溃。

我希望有人可以告诉我我做错了什么。

Sub PushOutAWeek()
    Dim ws As Worksheet
    Dim rng As Range

    Set ws = ThisWorkbook.ActiveSheet

    With ws
        Set rng = .Columns(ActiveCell.Column)
        rng.Copy
        rng.Insert xlShiftToRight

    End With

    Application.Calculate
End Sub

当我单击“调试”时，它突出显示以下行是问题所在：

rng.Insert xlShiftToRight

我要在其中插入新列的数据的屏幕截图： Screenshot

Answer 1

我认为这可能有效：设置范围可能是一个错误，此代码将避免这种情况。

Sub PushOutAWeek()

    With ThisWorkbook.ActiveSheet
        .Columns(ActiveCell.Column).Copy
        .Columns(ActiveCell.Column).Insert xlShiftToRight
    End With

    Application.Calculate

End Sub

Excel VBA，运行时错误“ -2147417848（80010108）”：对象“范围”的方法“插入”失败

1 个答案: