Question

我粘贴在代码段下方，该代码只拾取可见行并将其粘贴到新工作表上以进行更多处理。但是，当它尝试粘贴时，它会失败，并显示“Excel无法使用资源完成操作。请关闭某些程序或稍后再试”。这个代码的替代方案？顺便说一句，这是excel 2007。

Function createSummary()
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    Cells.Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Application.CutCopyMode = False
    Selection.Copy

    Worksheets.Add().Name = "Summary"
    ActiveSheet.Paste
    Cells.Font.Bold = False

    Columns("A").Insert

Answer 1

如果没有看到您的工作簿，您似乎遇到了某些内存问题。

您无需选择要使用它们的单元格。尝试这样的事情：

With ActiveSheet
    .Outline.ShowLevels RowLevels:=2
    .UsedRange.SpecialCells(xlCellTypeVisible).Copy Worksheets.Add().[A1]
End With

With ActiveSheet
    .Name = "Summary"
    .UsedRange.Cells.Font.Bold = False
    .Columns("A").Insert
End With

将数据粘贴到新工作表时出现Excel VBA错误

1 个答案: