Question

我已经看了几个关于这个问题的问题，但我仍然没有找到解决方案。这是我的代码：

i = APPS_AuditWB.Sheets(3).UsedRange.Rows.Count

DeptReceivedWB.Sheets(1).Copy

With APPS_AuditWB.Sheets(3) 'Deletes Recd date over a year old
    .Cells(i + 1, 1).Paste

最后一行是发生错误的地方。我也尝试过PasteSpecial，但只粘贴了i的等式（APPS_AuditWB.Sheets（3）.UsedRange.Rows.Count）。

出了什么问题？

Answer 1

试试这个：

i = APPS_AuditWB.Sheets(3).UsedRange.Rows.Count

DeptReceivedWB.Sheets(1).Cells(1, 1).CurrentRegion.Copy

APPS_AuditWB.Activate
APPS_AuditWB.Sheets(3).Select
ActiveSheet.Cells(i + 1, 1).Select
ActiveSheet.Paste

无法从一个工作簿复制到另一个工作簿

1 个答案: