我正在编写 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
快速回答:通过调整目标单元格的大小来解决。