使用Excel VBA从数组填充工作表需要很长时间

Question

我有这个Excel VBA代码，在工作簿表中转储166行大小的数组需要5秒多的时间。 我试图隐藏工作表，但我得到的只是每个单元格的“等待”图标。

Dim wkb As Workbook
Set wkb = Workbooks.Add

For row = 0 To UBound(fullReport, 1)
    For col = 0 To UBound(fullReport, 2)
       wkb.Sheets(1).Cells(row + 1, col + 1) = fullReport(row, col)
    Next col
Next row

奇怪的是，第一次总是很慢，然后，有时候，它是立即的。

Answer 1

尝试

Application.ScreenUpdating = False

在宏的开头。您的代码应该运行得更快。