错误消息'运行时错误'1004'运行复制/粘贴macros时，应用程序定义或对象定义的错误

我试图写一个非常基本的macros，从一张表中复制值并将其粘贴到另一张表中。 该macros最初工作，然后开始返回Runtime error '1004' Application-defined or object defined error消息。 代码是：

 Sub CopyPaste() ' ' CopyPaste Macro Sheets("Data Input").Range("C2:C11").Copy Sheets("Results").Range("A8").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Application.CutCopyMode = False End Sub 

Answer 1

最好不要从第一行开始，直到最后一行，最好反过来 – 从表单底部开始，直到find第一个数据行。 否则，如果只有一个或零个数据行（那么最后一个表格行将被返回），则会遇到问题 – 或者在数据中出现空白的情况下，您将得到第一个差距。

因此，请尝试下面的代码：

 Sub CopyPaste() Sheets("Data Input").Range("C2:C11").Copy Sheets("Results").Cells(Sheets("Results").Rows.count,1).End(xlUp) _ .Offset(1).PasteSpecial Paste:=xlPasteValues Transpose:=True Application.CutCopyMode = False End Sub