vba - 将模板行复制并粘贴到事件单元格下方的行

Question

我的目标是我可以选择位于第 1 到第 3 行的三个行模板之一，并且根据我使用光标的位置，应该在下面插入一行。此代码工作正常并插入选定的模板行:

Sub InsertRowBelow()
RowNumber = ActiveCell.Offset(1).Row
SelectTemplate = InputBox("Which row level do you want to insert?                    1 = Title, 2 = Subtitle, 3 = Task")
Worksheets("Projektplan").Rows(SelectTemplate).EntireRow.Copy
Worksheets("Projektplan").Rows(RowNumber).EntireRow.Insert
Application.CutCopyMode = False
Worksheets("Projektplan").Rows(RowNumber).Paste
End Sub  

但最终它会产生一个错误(VBA 错误 438 对象不支持此属性或方法)。

这是为什么？

Answer 1

一次Application.CutCopyMode = False已经运行，没有要粘贴的内容，所以这一行:

Worksheets("Projektplan").Rows(RowNumber).Paste  

正在返回错误。它不是必需的，因此可能会被删除。