从Excel 2010升级到Excel 2013后，VBA中的大型阵列出现“内存不足”错误

Question

我最近从Excel 2010升级到Excel2013。下面的VBA代码在Excel 2010中工作正常，但在Excel 2013中给出了错误。

private a() As Variant
private b() As Variant

public sub x()
  ReDim a(19, 112, 194, 10) As Variant '19x112x194x10 x 16 bytes = 63 MB
  ReDim b(177, 112, 194) As Variant '177x112x194 x 16 bytes = 59 MB
end sub

当我减小数组大小时，错误消失了。 要使错误消失，数组大小必须像这样：

  ReDim a(19, 112, 194, 5) As Variant '19x112x194x5 x 16 bytes = 31 MB
  ReDim b(177, 112, 60) As Variant '177x112x60 x 16 bytes = 19 MB

我正在使用Excel 2013 32位。

如果我能就如何保持原始数组大小获得一些建议，那将很好。 升级到64位？ 使用其他数据类型？

任何帮助，将不胜感激。

Answer 1

通过升级到Excel 2013 64位解决了该问题。

在Excel 2010中，以下代码的最后一行将导致错误：

ReDim a(19, 112, 194, 50) As Variant '19x112x194x50 x 16 bytes = 315 MB
ReDim b(19, 112, 194, 50) As Variant '19x112x194x20 x 16 bytes = 315 MB
ReDim c(19, 112, 194, 20) As Variant '19x112x194x20 x 16 bytes = 126 MB
ReDim d(19, 112, 194, 20) As Variant '19x112x194x20 x 16 bytes = 126 MB
ReDim e(19, 112, 194, 20) As Variant '19x112x194x20 x 16 bytes = 126 MB -> error in Excel 2010

结论在Excel 2010中，您可以分配至少882 MB的阵列内存，并且在分配1008 MB的内存时出现内存不足错误

在Excel 2013 32位中，以下代码的最后一行将导致错误：

ReDim a(19, 112, 194, 5) As Variant '19x112x194x5 x 16 bytes = 31 MB
ReDim b(19, 112, 194, 5) As Variant '19x112x194x2 x 16 bytes = 31 MB
ReDim b(19, 112, 194, 2) As Variant '19x112x194x2 x 16 bytes = 13 MB -> error in Excel 2013 32 bit

（我卸载了Excel 2013 32bit，因此上面的数字来自我的内存）

结论在Excel 2013 32bit中，您可以分配至少62 MB的数组内存，而在分配75 MB的内存时出现错误

在Excel 2013 64位中，以下代码的最后一行不会给出错误（但由于我的物理内存不足，它会使其变慢）：

ReDim a(19, 112, 194, 300) As Variant '19x112x194x50 x 16 bytes = 1890 MB
ReDim b(19, 112, 194, 300) As Variant '19x112x194x20 x 16 bytes = 1890 MB
ReDim c(19, 112, 194, 300) As Variant '19x112x194x20 x 16 bytes = 1890 MB
ReDim d(19, 112, 194, 300) As Variant '19x112x194x20 x 16 bytes = 1890 MB
ReDim e(19, 112, 194, 300) As Variant '19x112x194x20 x 16 bytes = 1890 MB

结束语在Excel 2013 64bit中，您可以分配至少9449 MB （！）的阵列内存，并且仍然不会遇到麻烦。

更新：

若要查找可用于VBA的内存量，请复制/粘贴以下代码，然后调用availableMemoryInMB()

Function allocateMB(intNumMB As Integer) As Boolean
    On Error Resume Next
    Dim a As Variant
    ReDim a(intNumMB, 256, 256) As Variant 'intNumMB x 256 x 256 x 16 bytes = intNumMB MB
    allocateMB = (Err.Number = 0)
    Err.Clear
    Erase a
End Function

Function availableMemoryInMB() As Integer
    Dim intLow As Integer, intHigh As Integer, intTest As Integer
    intTest = 1: intHigh = 0
    Do
        If allocateMB(intTest) Then
            intLow = intTest
            If intHigh = 0 Then
                intTest = intTest * 2
            Else
                intTest = (intLow + intHigh) / 2
            End If
        Else
            intHigh = intTest
            intTest = (intLow + intHigh) / 2
        End If
    Loop Until intHigh - intLow <= 1 And intHigh > 0
    availableMemoryInMB = intLow
End Function

执行代码需要2到20秒。 通过在某些函数调用之前和之后对availableMemoryInMB进行调用，您可以确定消耗最多内存的函数。