这段代码工作了两三次,然后我得到一个“Range 类的PasteSpecial 方法失败”错误。我知道当没有复制任何内容时会出现该错误,但考虑到它是在上面复制的,我不明白为什么它不起作用。
当我一步一步调试和观察它时,它会在 Paste 行之后循环回到开头,而不是跑到 Sub 的末尾。
Sub AddRows()
Range("A11").End(xlDown).EntireRow.Copy
Range("A11").End(xlDown).Offset(1, 0).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End Sub
有任何想法吗?谢谢大家!