VBA-复制粘贴错误 1004

VBA-复制粘贴错误 1004

我正在编写 VBA 代码,想知道为什么在尝试粘贴“数据表”工作表时收到运行时错误 1004。它告诉我无法粘贴信息,因为复制区域和粘贴区域的大小和形状不同。

有什么办法可以解决这个问题吗?

If (Not (rowmatched) And k = referencesheetcols) Then
    range2.Copy
    Sheets(referencesheetname).Range("a1:a6000").Cells(p, 1).Offset(2, 0).Select
    ActiveSheet.Paste
    p = p + 1
    Sheets("Datasheet").Activate
    ActiveSheet.Cells(q, 1).Offset(2, 1).Select
    ActiveSheet.Paste
    q = q + 1
End If

Next
End If
Next

答案1

快速回答:通过调整目标单元格的大小来解决。

相关内容