Question

我正在尝试编写一个非常基本的宏，它从一张纸上复制值并将它们粘贴到另一张纸上。该宏最初工作，然后开始返回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

而不是从顶行开始并向下到底，最好从另一个方向开始 - 从工作表底部开始直到找到第一个数据行。否则，当您只有一个或零个数据行（然后将返回最后一个工作表行）时，您将遇到问题 - 或者如果数据存在间隙，您将获得第一个差距。

因此，请尝试使用此代码：

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

错误消息'运行时错误'1004'运行复制/粘贴宏时出现应用程序定义或对象定义错误

1 个答案: