它可以追溯到很久以前，但无论如何：今天，我在使用VBA工具时遇到了同样的问题（Excel 2010，通过UF调用，导入> 40000行数据并执行一些计算）：->第一次运行时的运行时间：第2次运行时为40秒和11分钟（关闭UF并再次打开后）。我能够解决这个问题，通过明确地擦除数组，我在代码中使用的“擦除”命令，并设置工作簿对象为“无”明确之前，UF是关闭的。

示例：

• 私有子UserForm_QueryClose（Cancel As Integer，CloseMode As Integer）If CloseMode = vbFormControlMenu Then Logger_End

Erase allAsmFileREVsArray()
    Erase allAsmFileURLsArray()
    
    Set xlWorkBook = Nothing
End If

结束接头 *
也许会有帮助。。

根据你的描述，我认为可能的解决方案如下。
1.把application.screenupdating = false放在子目录的第一个，application.screenupdating = true放在退出子目录之前。
1.把application.calculation = xlCalculationManual放在你的子节点的第一个，application.calculation = xlCalculationAutomatic放在退出子节点之前。
1.使用数组变量。如果要输入一个100000 x 26的范围（“A1：Z100000”），正常和慢方式如下

for i = 1 to 100000
    for j = 1 to 26
        cells(i,j).value = 123
    next j
next i

最快的办法就是

dim ary(100000 - 1, 26 -1) as variant
'make an array
for i = lbound(ary, 1) to ubound(ary, 1)
    for j = lbound(ary, 2) to ubound(ary, 2)
       ary(i, j) = 123
    next j
next i

range("a1").resize(ubound(ary, 1) - lbound(ary, 1) + 1, ubound(ary, 2) - lbound(ary, 2) +1).value = ary