excel - 错误1004 Range类的插入方法失败

Question

我有一个简单的宏，我想复制活动单元格行上方的行并将其用作我的模板行（因为它在该行中有公式）。然后我想在活动单元格行上方插入该行。当我在下面运行我的代码时，我得到 Range Class Failed 的 Error 1004 Insert 方法。当我选择调试时，突出显示以下行。

ActiveSheet.Rows(ActiveCell.Row).EntireRow.Insert Shift:=xlDown, CopyOrigin:=TempRow

我在表格中没有任何合并的单元格，除了标题的顶部，用户不会在那里输入任何行。该工作表目前不受保护，但一旦我能弄清楚此代码就会受到保护。然后，我将添加代码以在宏运行之前和之后取消保护和保护工作表。我不知道如何解决这个问题。任何建议，将不胜感激。

Sub ADD_ROW_1 ()
Dim TempRow As Range

Set TempRow = ActiveSheet.Rows(ActiveCell.Offset(-1, 0).Row).EntireRow
TempRow.Copy

ActiveSheet.Rows(ActiveCell.Row).EntireRow.Insert Shift:=xlDown, CopyOrigin:=TempRow

'    Clear cells code here
Range("A" & TempRow.Row + 1).ClearContents
Range("B" & TempRow.Row + 1).ClearContents
Range("E" & TempRow.Row + 1).ClearContents

End Sub

标签： excelvba