运行复制/粘贴宏时出现错误消息‘运行时错误'1004’应用程序定义的错误或对象定义的错误
运行复制/粘贴宏时出现错误消息‘运行时错误'1004’应用程序定义的错误或对象定义的错误
提问于 2013-12-13 12:09:56
我正在尝试编写一个非常基本的宏，它从一个工作表中复制值并将其粘贴到另一个工作表中。宏最初工作，然后开始返回一条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回答 1
Stack Overflow用户
发布于 2013-12-13 14:50:06
与其从顶行开始到底部，不如反过来做-从工作表的底部开始，一直向上，直到找到第一个数据行。否则，当您只有一个或零个数据行(然后最后一个表行将被返回)时，您将遇到问题-或者在数据中存在间隙的情况下，您将获得第一个间隙。
因此，请尝试以下代码：
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/20558933
复制相关文章
相似问题
腾讯云开发者
