“Excel不能使用可用资源完成任务”

我不知道是什么原因造成这个问题。 我有一个简单的macros，创build新的选项卡并命名它们，然后过滤来自一个选项卡的数据，并将其粘贴到相应的选项卡。

这是我的代码：

Sub Tabs() Dim wbRecovery As Workbook Dim wsFac As Worksheet Set wbRecovery = ThisWorkbook Set wsFac = wbRecovery.Sheets("Facility Rec Bucket & Year") With wbRecovery Sheets.Add After:=Sheets(Sheets.Count), Count:=17 Sheets(5).Name = "DANES" Sheets(6).Name = "DCEND" Sheets(7).Name = "DCHED" Sheets(8).Name = "DCNUR" Sheets(9).Name = "DCRIC" Sheets(10).Name = "DEMER" Sheets(11).Name = "DHEMA" Sheets(12).Name = "DMED" Sheets(13).Name = "DNEUR" Sheets(14).Name = "DNSUR" Sheets(15).Name = "DOBGY" Sheets(16).Name = "DOPHT" Sheets(17).Name = "DPEDS" Sheets(18).Name = "DPMR" Sheets(19).Name = "DPSYC" Sheets(20).Name = "DRADS" Sheets(21).Name = "DSURG" End With wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DANES"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DANES").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DCEND"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DCEND").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DCHED"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DCHED").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DCNUR"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DCNUR").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DCRIC"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DCRIC").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DEMER"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DEMER").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DHEMA"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DHEMA").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DMED"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DMED").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DNEUR"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DNEUR").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DNSUR"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DNSUR").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DOBGY"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DOBGY").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DOPHT"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DOPHT").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DPEDS"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DPEDS").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DPMR"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DPMR").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DPSYC"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DPSYC").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DRADS"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DRADS").Range("A1") wsFac.Range("A1").AutoFilter Field:=1, Criteria1:=("DSURG"), _ Operator:=xlFilterValues wsFac.Cells.Copy Destination:=wbRecovery.Sheets("DSURG").Range("A1") End Sub 

当我按原样运行这个代码时，粘贴OBGY选项卡后，出现错误“Excel无法用可用资源完成任务” 。 从中复制数据的标签不是非常大，只有566行和14列（我不认为Excel的大）。 如果我单独运行代码行或5-8块，它完美的作品。 所有的数据都被正确的复制和粘贴，但是当我把它作为一个整体运行时，我得到了同样的问题。

我的电脑或Excel本身有问题吗？

我从桌面上删除了很多东西，所以我不认为这是一个存储问题。 另外当我手动进行的过程中，我没有任何问题。 我也尝试过Application.CutCopyMode = False ，这也没有奏效