静态数组只能被指定一次维度。 此错误具有以下原因和解决方案：
You attempted to change the dimensions of a static array with a ReDim statement; only dynamic arrays can be redimensioned. 取消重新指定维度或使用动态数组。 若要定义动态数组，使用带有空括号的“Dim”、“公共”、“私有”或“静态”语句。
例如：
Dim MyArray()在过程中，可以使用元素数量的变量来定义具有 ReDim 或 Static 语句的动态数组：Dim MyArray()ReDim MyArray(n)在过程中，可以使用元素数的变量来定义具有 ReDim 或 Static 语句的动态数组：
ReDim MyArray(n)“Option Base”语句在设置数组维度之后出现。 确保每个“Option Base”语句都在所有数组声明之前。
有关其他信息，选择有问题的项并按 F1（在 Windows 中）或 HELP（在 Macintosh 上）。
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。