excel 防止VBA While循环逐渐变慢

1zmg4dgp 于 2023-06-25 发布在其他

关注(0)|答案(1)|浏览(141)

循环复制格式化的代码段并插入它们x次。做不到10次是快的，但它很快开始慢下来的地步，在大约60左右，它需要大约一秒钟的每一个插入，并继续从那里慢下来。是什么导致它逐渐变慢？

While x < num
    Debug.Print ("Running: " & x)
    With Sheets(inoc)
    .Activate
    .Rows("12:15").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
    End With
    With Sheets(count)
    .Activate
    .Rows("17:28").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
    .Range("C29").Value = "='Inoculation and Incubation'!B17"
    End With
    x = x + 1
    Application.CutCopyMode = False
    
Wend

excel

来源：https://stackoverflow.com/questions/76466734/prevent-vba-while-loop-from-getting-progressively-slower

1条答案

按热度按时间

h5qlskok1#

来自评论：
Avoid using .Activate and .Select。
While... Wend通常被认为已弃用。

Dim i As Long
For i = x to num
    Debug.Print "Running: " & i
    With Sheets(inoc).Rows("12:15")
        .Copy
        .Insert Shift:=xlDown
    End With

    With Sheets(count).Rows("17:28").
        .Copy
        .Insert Shift:=xlDown    
    End With

    Sheets(count).Range("C29").Value = "='Inoculation and Incubation'!B17"

    Application.CutCopyMode = False
    
Next i

为什么会越来越慢：
任何时候一个刺穿墙之间的vba和工作表，它会慢一点。这种缓慢确实开始在循环中复合。对于您正在尝试做的事情（复制/插入），我们无法做更多的事情来使其更快，或者克服复合缓慢。这可能与excel必须在每个循环中重绘xml的事实有关，并且在将信息存储在内存中然后重绘xml时需要处理的数据越来越多。

赞(0）回复(0）举报 2023-06-25

我来回答

excel 防止VBA While循环逐渐变慢

1条答案

相关问题

热门标签

最新问答