Excel 2016 VBA - 复制速度极慢

Question

我最近将 excel 从 2010 升级到 2016(32 位)，突然之间需要 5 秒才能完成的代码现在需要很长时间。即使像下面的代码这样简单的复制操作也需要大约半分钟才能运行。

For i = 1 To 10
    Worksheets("Sheet2").Range("A" & i).Copy Worksheets("Sheet2").Range("A" & i)
Next i

有办法解决这个问题吗？

编辑:下面是@Comintern 请求的“真实”代码，大约有 1000 份，但需要很长时间才能运行:

For i = 3 To lRow1        
     Select Case Range(cType & i).Value
        Case "Order"
            ws1.Rows(i).Copy wsOrder.Rows(lRowOrder + 1)
            lRowOrder = lRowOrder + 1
        Case "UP"
            ws1.Rows(i).Copy wsUP.Rows(lRowUP + 1)
            lRowUP = lRowUP + 1
        Case "Cancel"
            ws1.Rows(i).Copy wsCancel.Rows(lRowCancel + 1)
            lRowCancel = lRowCancel + 1
        Case "Edit"
            ws1.Rows(i).Copy wsEdit.Rows(lRowEdit + 1)
            lRowEdit = lRowEdit + 1
        Case ""
            ws1.Rows(i).Copy wsOther.Rows(lRowOther + 1)
            lRowOther = lRowOther + 1
    End Select

Next

Answer 1

我最近遇到了类似的问题。 Excel 需要几分钟来复制工作表的一部分，比如 12x500 单元格的区域。就我而言，结果是细胞拾取了一些不可见的图形，可能来自它们在网页上的来源。因此，如果您在复制操作时遇到 excel 挂起，需要检查的一件事是您的工作中是否存在图像对象。

这里有一个快速程序可以找到并删除它们: https://excel.tips.net/T003018_Deleting_All_Graphics.html