1.2 出错的原因是什么？ redim时只有最后1维可变化，redim不太适合和循环搭配，即使用 redim preserve也不行！你装数据时一般都会有一个充当计数器的变量,这个变量最后的值就是数组中装入值的数量一般是声明一个足够大的静态数组,或二次声明一个足够大的动态数组,动态的二维数组用redim 修改大小，切记第一维在第一次扩容的时候就定死了，以后只能修改第二维。再次扩容第二维的时候，记得加 preserve关键字，否则数组中的原有数据就会丢失。但是用 redim preserve 扩容的时候，又要注意，维度的数只能增加不能减少，所以不适合 for i=1 to 3 for j=1 to 3 这种循环套循环，因为j这个最后一维总是在循环从小变大，也会有变小重置的时候，就会出问题
1.3 下面是详细的试错过程
2 如果二维数组定义为静态数组，生成数组和生成后打印数组内容，都很方便 Sub test901()'如果二维数组，定义为静态数组，生成数组 和 生成后打印数组内容，都很方便Dim arr1(3, 3)For I = 0 To 3 For J = 0 To 3 arr1(I, J) = I * J Debug.Print "arr1(" & I & "," & J & ")= " & arr1(I, J) & " "; Next Debug.PrintNextDebug.PrintFor I = LBound(arr1) To UBound(arr1) For J = LBound(arr1, 2) To UBound(arr1, 2) Debug.Print "arr1(" & I & "," & J & ")= " & arr1(I, J) & " "; Next Debug.PrintNextDebug.PrintEnd Sub
3 如果定义二维数组，是动态数组，但redim时，一次定位到足够大/或准确大小
Sub test902()'如果定义二维数组，是动态数组，但redim时，一次定位到足够大/或准确大小，也没问题，比较清晰Dim arr2()ReDim arr2(3, 3)For I = 0 To 3 For J = 0 To 3 arr2(I, J) = I * J Debug.Print "arr2(" & I & "," & J & ")= " & arr2(I, J) & " "; Next Debug.PrintNextDebug.PrintFor I = LBound(arr2) To UBound(arr2) For J = LBound(arr2, 2) To UBound(arr2, 2) Debug.Print "arr2(" & I & "," & J & ")= " & arr2(I, J) & " "; Next Debug.PrintNextDebug.PrintEnd Sub
4 如果定义一个二维数组为动态数组，但又在循环时赋值，redim不适合这么动态变量 redim，容易出现下面的问题 动态数组用redim，比如redim arr4(i,j)因为 i ，j 都在循环就会各种出问题用 redim arr4(i,j) 必出现越界问题， 因为非最后一维，i 这一维在redim 时是不能变得用 redim preserve 也容易出现越界问题，（因为 redim preserve 需要后面得数组空间比之前的大，而循环时很容易出现变小不匹配）Sub test903()'如果定义一个二维数组为动态数组，但又在循环时赋值，redim不适合这么动态变量 redim，容易出现下面的问题Dim arr4()For I = 0 To 3 For J = 0 To 3' ReDim Preserve arr4(I, J) ReDim arr4(I, J) arr4(I, J) = I * J Debug.Print "arr4(" & I & "," & J & ")= " & arr4(I, J) & " "; Next J Debug.PrintNext IDebug.PrintFor I = LBound(arr4) To UBound(arr4) For J = LBound(arr4, 2) To UBound(arr4, 2) Debug.Print "arr4(" & I & "," & J & ")= " & arr4(I, J) & " "; Next Debug.PrintNextEnd Sub
5 为什么 动态redim 二维数组会有问题？原因是 需要理解arr4(1 To 3, 1 To J)中arr(1 to 4, ) 其实是固定数组，一次性一步！把维度展开了，而不是逐步展开动态数组，redim时，数组的非最后1维不能变化，变了直接报错越界动态数组，redim时，数组的最后1维也只能从小变大，如循环后又从大变小会出问题，会把之前内容redim后抹掉--------所以循环不太适合redim但这时候preserve也不行，还是因为如果最后一维因为循环从大到小后，会导致preserve出错（因为preserve必须后面得包含前面的,不能变小）
本质在于 redim 和循环 不匹配的问题！对比为什么生成数组，同时debug.print 数组内容没问题，但是数组生成完成后，显示数组内容反而有错？就是因为 for j = 1 to 3 这个二维数组的第2维的循环，redim从1到3，再次从1到3。导致之前的数组的元素被抹掉！Sub test603()'二维数组，动态redim'需要理解arr4(1 To 3, 1 To J)中arr(1 to 4, ) 其实是固定数组，一次性一步！把维度展开了，而不是逐步展开Dim arr4()For I = 1 To 3 For J = 1 To 3' ReDim Preserve arr4(I, J) '错在没注意起始下标应该从1开始' ReDim Preserve arr4(1 To I, 1 To J) '越界错误，因为preserve了，但是j又减小这种循环不适合' ReDim arr4(1 To I, 1 To J) '虽然不pre不会越界，但之前的值会被抹去 ReDim Preserve arr4(1 To 3, 1 To J) 'vba的二维数组，只支持最后1维变大小，其他维不能变否则显示越界，j作为维度之一，只能单向变大，不应该变小的' arr4(I, J) = I * J '可在这里设置断点，添加监视变量，监视arr4 Next JNext IFor I = LBound(arr4) To UBound(arr4) For J = LBound(arr4, 2) To UBound(arr4, 2) Debug.Print "arr4(" & I & "," & J & ")= " & arr4(I, J) & " "; Next Debug.PrintNextDebug.Print'总结'数组的非最后1维不能变化，变了直接报错越界'数组的最后1维也只能从小变大，如循环后，又从大变小会出问题，会把之前内容redim后抹掉'但preserve也不行，还是因为如果最后一维因为循环从大到小后，会导致preserve出错（因为preserve必须后面得包含前面的,不能变小）End Sub