新电脑运行宏程序速度更慢，求原因！！

[sinpafox]

最近换了新电脑。但是发现同样的的宏程序，新电脑竟然运行的速度更慢，求各位大咖原因。

先把测试代码贴出来。测试代码就是数组赋值，再把数组输出到单元格。

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秒。这是为什么？？
而且我也了解主要的耗时语句就是数组输出代码这一语句。新旧电脑耗时差别也主要就是在这一句。
求各位大咖赐教。或者告诉我一个思路也可以。

[薛定谔_51]

CPU2600x，用时0.004。建议i和p不要定义为整数，为long更好