VBA简单入门31：Redim语句，数组的裁剪和扩展
1、 截取部分数组数据
一碗水，我们可以倒出一半或三分之一。同样，数组里面的数据，当不需要全部输出到工作表的时候，我们也可以自定义地决定输出多少数据。
如下面代码，将一个10行3列的数组，从数组下标开始（相当于我们看到的数组的上部）截取5行2列的部分。
如将10行3列数组输出到工作表的时候，Resize设定的范围是11行4列，那么多出的数组空间部分将赶回错误#N/A。
存放数据数据的单元格区域范围却不能比数组大。
数组在内存中可以像单元格一样自由修改数据。如，Cell(1,1)=''A''表示单元格A1的值为A;
arr(1,1)=''A''表示数组左上角第一个单元格的值为A。
遍历二维数组就相当于遍历单元格区域一样，对其赋值、修改内容都和单元格操作没有多大区别。
下面代码，提取数组arrA列为C的数据，用K计算其条数，然后将数据放在自身的上部存储，输出的时候只输出K值截取的部分。
A1:C10是原始的数组arr，E1:G10是提取数据后修改了的数组arr，但在输出数据的时候，使用Resize只输出E1:G10上部的无填充颜色部分E1:G2（黄色部分没有输出到工作表，写上只为参考），也就是K值标记的部分。
这样，我们就运用数据完成了数据的筛选。
当然，我们也可以用一个新的数组brr来装入C的数据。见下面例子。
二、使用Redim语句设定数组的大小。
通常我们要装行李物品，肯定是找足够大的行李箱来装。同样我们可以使用Redim语句来定义一个足够大的数据，用来存储处理后的数据。这里要注意的是，如下面代码中的brr()，这里的括号不能省略，否则就不是数组，而是变体变量，不能是使用Redim语句。
本例中数组brr是下图这个样子，只有K值的部分有数据，黄色部分空白。
但我们只输出其前2行数据到工作表中。
Redim后的数组，其数据都会被清空，而且大小和纬度数都可以改变。
二维数组Redim为一维数组
二维数组改变大小
三、使用Redim Preserve扩展数据的 最后一维度大小，并保留原来的数据。
同样以上面的例子来作演示，这次我们先不设定数组brr的大小，而是在数组处理数据的时候，根据K值来扩展brr的大小。
这相当于我们盖厂房，开始是1000平，不够用了，就扩建到2000平。
下面代码同样可以达到上面代码的效果。
在数组brr还没有转置的时候，brr是一个3行2列的数组。
转置后，成为2行3列的数组，输出到工作表中。
使用Redim Preserve需要转置函数Transpose，因为其受到Transpose的限制（该问题见上一章）。本人习惯于先Redim设定一个足够大数组来处理实际问题。
最后，Redim了数组的大小就不能够使用Redim Preserve，否则会报错，提示下标越界。
最新文章
-
揭秘：伤寒汗出病解的方式有哪些
6分钟前 -
洗髓修炼中的：找病、攻病、翻病、愈病！
21分钟前 -
（原创）颤证的经方治疗案。。。
27分钟前 -
中医教你：看指甲上的月牙诊病
39分钟前 -
中药方论（24）
42分钟前 -
仅一味中药就可以降血糖 ，一味中药的单药方！
44分钟前 -
解郁安神颗粒：抑郁症、焦虑症都是因为肝的疏泄功能出现了失调
55分钟前 -
有一种痛苦叫牙疼，有种止疼药叫艾灸！收藏起来，以备不时之需！
1小时前
有话要说...