最近換了新電腦。但是發現同樣的的宏程式，新電腦竟然運行的速度更慢，求各位大咖原因。
先把測驗代碼貼出來。測驗代碼就是陣列賦值，再把陣列輸出到單元格。
Sub AAA()
Dim arrA As Variant
Dim i As Integer
Dim p As Integer
Dim StartTime As Date
StartTime = Timer
'陣列賦值
ReDim arrA(30, 4)
For i = 0 To UBound(arrA, 1)
For q = 0 To UBound(arrA, 2)
arrA(i, q) = 1
Next q
Next i
'仔細檢查過，主要是下面這一句陣列輸出代碼耗時最長。
Range("b2").Resize(UBound(arrA, 1) + 1, UBound(arrA, 2) + 1) = arrA
MsgBox Format(Timer - StartTime, "0.00" & "秒")
End Sub
復制代碼
新電腦的配置如下：
新電腦的EXCEL版本如下：
舊電腦的配置如下：
舊電腦的EXCEL版本如下：
目前的問題是，新電腦配置更高速度更快，但是同樣的代碼新電腦用時更長需要1秒多鐘，舊電腦用時才0.3秒。這是為什么？？
而且我也了解主要的耗時陳述句就是陣列輸出代碼這一陳述句。新舊電腦耗時差別也主要就是在這一句。
求各位大咖賜教。或者告訴我一個思路也可以。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/260208.html