1

当我尝试使用 EXCEL 2007、WINDOWS 7 中的以下代码将其中一个工作表中的数据复制到新工作表中时，我遇到了错误“excel 无法使用可用资源完成此任务。选择较少数据或关闭其他应用程序”。

当我关闭所有其他应用程序时，它显示相同的消息。如何解决这个问题？请指教。

With ActiveSheet
     .Range("A1").Select
     .UsedRange.SpecialCells(xlCellTypeVisible).Copy

End With

With ThisWorkbook
    Set ws = .Worksheets.Add(After:=.Sheets(.Sheets.count))
    NewSheet = ActiveSheet.Name
End With


With ActiveSheet
    .Range("A1").Select

    Selection.PasteSpecial Paste:=xlPasteColumnWidths
    Selection.PasteSpecial xlPasteAll
    .Range("A1").Select

End With

当我将 xls 保存为 .xls (97-2003) 时，它工作正常。但我想运行超过 65k 的数据

4

1 回答 1

0

我在一个新创建的 excel 文档上测试了你的代码，并将 80K 行复制到一个新工作表中。您的代码有效...

但是，我确实将其创建为宏子例程并多次运行以进行检查。

但是您说您曾经将文档保存为xls。也许你也有它的局限性。

请创建一个新的 excel 文档并始终将其保存为 xlsx...

于 2016-07-25T12:11:48.797 回答