vba - 暂停 VBA 并重新运行它会导致执行速度更快

Question

我们正在使用宏进行一些分析，我们希望能够查看进程，由于超出此处范围的原因，我们被迫使用 Activate 和 在宏中选择。我和我的同事都意识到使用这种方法的缺点。同时经测试，显式编码和选择激活并不是造成该问题的主要原因。

在其中一个子模块中，我在下面发布了它的(伪)代码，我们基本上从一张表中获取数据并复制它转到另一个。

问题

问题是这个过程真的很慢，但是当我暂停宏(Esc)时，点击调试，单步执行(F8)一两步for-loop 并再次运行 (F5) 它运行得更快。

这不会发生在我的 for 循环或特定工作表的特定步骤周围，因此与我的数据及其结构无关。

问题:出现这种情况的可能原因是什么？暂停/单步运行是否会导致内存被清除或任何其他可能的情况导致运行速度更快？我该如何解决这个问题(使其运行得尽可能快，而不需要暂停等。)？

重要说明

如上所述，使用 Select 和 Activate 并不是减慢进程的主要原因。我很抱歉再说一遍，但我知道如何使用显式选项、设置范围、设置值而不是复制等。我已经更改了我的代码以避免选择查看是否解决问题无济于事。它仍然跑得很慢，直到停下来，跨过去，再跑。如果您仔细研究该问题并描述问题背后的原因，我将不胜感激。或者至少，特别让我知道为什么这个问题与选择/激活有关。

这是一个更大的主模块的一部分，该模块作为一个整体运行程序，但这是导致速度变慢的部分。我在主模块中使用了一些优化技术。

Sub Copy_ModelInputs(RootDir, FileName, TranID, ModOutDir, Angle, x, y, Method, TypeN)
'For each 150 storms, step through model event tabs and copy into runup tabs
FileName = RootDir & "NWM\" & FileName
FileName_output = ModOutDir & TranID & "_Outputs.xlsm"
Workbooks.Open (FileName)
FileName = ActiveWorkbook.Name
Workbooks.Open (FileName_output)
Filename2 = ActiveWorkbook.Name

'copy the angle into the doc sheet
Windows(FileName).Activate
Sheets("doc").Select
Range("c12").Select
ActiveCell.value = Angle

'File Transect ID
Range("c6").Select
ActiveCell.value = TranID
ActiveCell.Offset(1, 0).Select
ActiveCell.value = FileName_output
Range("I4").Select
ActiveCell.value = Now
Range("d8").Select
ActiveCell.value = x
ActiveCell.Offset(0, 2).Select
ActiveCell.value = y


'copy model output to input into excel spreadsheets

For i = 1 To 150
    'input SWELs
    Windows(Filename2).Activate
    Sheets("Event" & i).Select
    Range("B2:B300").Select
    'Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
                    

    Windows(FileName).Activate
    Sheets("Event" & i).Select
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
                    
    'input H
    Windows(Filename2).Activate
    Range("C2:C300").Select
    'Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
                    
    'Open runup template spreadsheet, copy H0
    Windows(FileName).Activate
    Range("D7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

                
        'input T
        Windows(Filename2).Activate
        Range("D2:D300").Select
        'Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
                    
    'Open template
    Windows(FileName).Activate
    Range("G7").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    If TypeN = 1 Or TypeN = 3 Then
    
        'input deep
        Windows(Filename2).Activate
        Range("E2:E300").Select
        'Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
                        
        'Open template
        Windows(FileName).Activate
        Range("H7").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End If
    
    'input local
    Windows(Filename2).Activate
    'If Method = 2 Then
    If TypeN = 2 Then
        Range("G2:G300").Select
        Selection.Copy
            'Open template
            Windows(FileName).Activate
            Range("I7").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        'input model
        Windows(Filename2).Activate
        Range("F2:F300").Select
        Selection.Copy
            'Open template
            Windows(FileName).Activate
            Range("H7").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        'input length
        Windows(Filename2).Activate
        Range("J2:J300").Select
        Selection.Copy
            'Open template
            Windows(FileName).Activate
            Range("J7").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        'input data
        Windows(Filename2).Activate
        Range("I2:I300").Select
        Selection.Copy
            'Open template
            Windows(FileName).Activate
            Range("K7").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
    End If

    
    'input sheet
    Windows(Filename2).Activate
    If TypeN = 3 Then
        Range("H2:H300").Select
        Selection.Copy
            'Open template
            Windows(FileName).Activate
            Range("S7").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
    End If

    Windows(Filename2).Activate

    Application.StatusBar = "Model Output copied Event " & i
Next i

ActiveWorkbook.Save
ActiveWindow.Close
ActiveWorkbook.Save
ActiveWindow.Close

Sheets("Summary").Select
End Sub

P.S. 我想知道除了其他应用程序属性之外，Application.Cursor = xlWait 是否会显着提高性能。

注意请不要提出选择、激活和复制 粘贴争论。它已经在上面的行和评论中多次介绍过:)

Answer 1

我在使用 Microsoft 365(64 位 Windows 10 Pro、i5 第 9 代处理器、16GB RAM。Excel 文件大小 4MB、大量使用 VBA。64 位 Excel)时遇到了类似的问题。

代码子长度 - 大约 770 行，它调用了多个函数并分支到多个子代码。

问题是，在使用 Office 2010(在同一台计算机上运行 32 位 Excel - 就这一点而言，在我以前的规范低得多的计算机上)时，该软件工作/运行良好。

在 MS365 机器上。在运行时，代码会在代码中的随机位置停滞 30 到 300 秒或更长时间，但在 Debug模式下则不会。

我尝试了所有建议的技巧，例如插入 DoEvents 以及在代码中的各个位置添加一两秒的等待。甚至卸载了MS365并重新安装了32位。

长话短说，我将代码分成更小的部分，并从原始代码块中调用它们，如下面的示例所示......

Sub xyz()
.....
.....
Call SetDoCalcPages
Call SetDoCalcPages1(r, ACellAddr, errStr, NowStr, errAddr)
Call SetDoCalcPages2(temWatch, fYoung, temYoung, doneonce, fK4, ACellAddr, goQT)
.....
.....
End Sub

大约 70 行代码被转移到上述三个子程序中。

我无法说出原因，但这解决了问题。在运行时，计算速度非常快。

有一件事是肯定的。该代码激活工作表和单元格并设置颜色和字体 - 所有这些都受到许多论坛上的建议的反对。我可以确认这些对症状没有任何影响 - 这是运行时宏代码执行中的随机长时间停顿。