从Excel 2003复制时出错:“0”;无法粘贴该信息…”;

从Excel 2003复制时出错:“0”;无法粘贴该信息…”;,excel,excel-2003,Excel,Excel 2003,由于65536行的限制,我需要将2007年以前的工作簿中的多个工作表的值合并,方法是复制并粘贴到没有限制的2007年以后的工作簿中 此代码适用于第一个工作表,但第二个工作表: destRow = 65537 Set destRange = destSheet.Cells(destRow, 1) Set srcRange = srcSheet.Range("A1:R65536") srcRange.Copy destRange 导致以下错误: “无法粘贴信息,因为复制区域和粘贴区域的大小不同。”

由于65536行的限制,我需要将2007年以前的工作簿中的多个工作表的值合并,方法是复制并粘贴到没有限制的2007年以后的工作簿中

此代码适用于第一个工作表,但第二个工作表:

destRow = 65537
Set destRange = destSheet.Cells(destRow, 1)
Set srcRange = srcSheet.Range("A1:R65536")
srcRange.Copy destRange
导致以下错误:

“无法粘贴信息,因为复制区域和粘贴区域的大小不同。”


无论是手动操作还是使用VBA操作,我都会遇到此错误。

在Excel post-2007中,复制整个Excel 2003工作表并将其粘贴到非A1的2007年后Excel位置时,这似乎是一个错误

解决方法:

如果我将复制/粘贴操作拆分为两个块,它将正常工作:

destRow = 65537
' Chunk 1
Set destRange = destSheet.Cells(destRow, 1)
Set srcRange = srcSheet.Range("A1:R65535")
srcRange.Copy destRange

' Chunk 2
Set destRange = destSheet.Cells(destRow + 65535, 1)
Set srcRange = srcSheet.Range("A65536:R65536")
srcRange.Copy destRange