将模板行复制并粘贴到活动单元格下方的行中
我的目标是可以select位于第1到第3行的三个行模板中的一个,并根据我在哪里使用光标将select插入到下面的一行。 此代码工作正常,并插入选定的模板行:
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对象不支持这个属性或方法 )。
这是为什么?
一旦Application.CutCopyMode = False已经运行,没有什么要粘贴,所以这一行:
Worksheets("Projektplan").Rows(RowNumber).Paste
正在返回错误。 这不是必需的,所以可能会被删除。