Excel 区域大小不相同时无法复制和粘贴

所以基本上，我试图选择一个数组，它可能会有所不同，我知道它从A1开始，但我不确定它将在哪一行和哪一列结束。上面的代码可以很好地帮助复制此数组

Dim lastrow&, lastCol&, myarray As Range
lastrow = Range("A1").End(xlDown).Row
lastCol = Range("XX1").End(xlToLeft).Column
Set myarray = Range("A1").Resize(lastrow, lastCol)
Range("A1", myarray).Select
Selection.Copy

最后一行

ActiveCell.PasteSpecial（xlPasteAll）

中出现错误

我尝试过不同的变体，包括activesheet.paste和xlpastevalues，但都没有用

Range（“A”&Rows.Count）.End（xlUp）.Offset（2，0）.Select

选择列A中的单个单元格以查找最后使用的行，并将其偏移2行，以便粘贴到现有数据下方。不确定为什么会出现错误1004，因为复制选择数组并将其粘贴到excel中的单个单元格中不会出现错误

---

非常感谢您的帮助；我对VBA真的是个新手，这些代码大部分来自不同的在线来源

只要源数据没有空白行或空白列，就可以执行以下操作：

Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlNormal
Windows("macrofile.xlsm").Activate
Sheets("MRG").Select
'has to find the last row by itself
Range("A" & Rows.Count).End(xlUp).Offset(2, 0).Select
ActiveCell.PasteSpecial (xlPasteAll)

假设有粘贴数据的空间

ActiveSheet.Range("A1").Currentregion.Copy _
  Workbooks("macrofile.xlsm").Sheets("MRG").Cells(Rows.Count, "A").End(xlUp).Offset(2,0)