VBA数组入门.docVIP

VBA数组入门 一、初识数组 1、数组就是一个列表或一组数据表。我们学习数组的目的，就是为了加速我们代码的效率。 2、我们如何运用数组呢？ 首先，必须声明数组。 其次，给数组赋值，可以是经过一系列的运算后再赋值给数组。 最后，将数组返回到工作表区域中。最终的目的是在工作表中显示我们想要的结果。 3、调试数组的手段：本地窗口 我们可以通过设置Stop语句，或F8逐步执行代码，在本地窗口中观测数组的变化。 Sub test() Dim arrSheetName(5) As String Stop End Sub 4、数组的优势与不足 数组的速度优势是明显的，但不足也很明显，因为，数组处理的都是数据，因此，它不能给EXCEL数据添加颜色，删除行列，插入行列等等动作。 5、VBA数组没有内存数组和一般数组之分。我们在声明数组时，就已经将数组写入内存里。 二、声明数组 1、声明一个数组变量，也是用Dim语句来声明。当声明了一个数组，便决定了这个数组用于存储数据所用的内存空间。 Dim arrCnt(10) As Integer Dim arrSheetName(5) As String Dim arr(7) As Variant 1）、这里我们看到，与一般定义不同的是多了个带括号的数字。这个数字，就是这个数组所能存储的最大元素数。 2）、数组可以根据我们的需要存储不同类型的数据，这与我们平常变量定义的类型一样，可以是Integer，Long，String，Variant 等等。 2、注意，上面定义数组的例子是静态数组，所以，我们在声明数组时，就决定了数组用于存储数据所用的内存空间大小。后面我们会讲到动态数组。 三、数组的上界和下界 1、VBA中，数组默认的下界是0，也就是Option Base 0 如果，我们习惯了用1作为我们的下界，可以强制声明：Option Base 1 注：Option Base 0（1）必须放在所有模块之前。 2、当然，我们也可以忽略这个强制声明，那我们就需要在声明数组时，指明数组的上界和下界，如： Dim arrSheetName(1 to 3) as String 表明这个数组的上下界分别是1和3。 四、静态数组和动态数组 我们之前所定义的数组，都是静态数组。静态数组的特点是具有大小的数组。当我们事先知道数组的大小，那么，我们可以直接声明为静态数组。 如果我们不知道数组大小，那么我们应定义成动态数组。 1、动态数组是可以改变大小的数组，通过在数组名称后附带空括号来声明，如： Dim arrSheetName() as String 2、在定义动态数组之后，必须使用ReDim来设置动态数组的上界和下界，为数组重新分配存储空间。 3、我们可以使用ReDim语句反复地改变数组的元素已经维数。 Sub arr1() Dim arr() As Long Dim i As Long ReDim arr(1 To 3) For i = 1 To 3 arr(i) = i Next Sheet1.[a1].Resize(1, 3) = arr Stop ReDim arr(1 To 10) For i = 1 To 10 arr(i) = i Next Sheet1.[a1].Resize(1, 10) = arr End Sub 4、ReDim Preserve语句 Preserve 英文的意思是保留，保存。顾名思义，就是重新定义数组时，将数组元素保留在数组中。 与ReDim不同的是，使用了ReDim Preserve，只能通过改变上界，即最末维的大小，来改变数组的大小，且不能改变数组维数。如果改变了下界，就会出现错误信息。 例子，见后面的过程Join2。 五、一维数组和多维数组 我们前面所举的例子都是一维数组，数组可以定义多达60维。 但我们很少看到多过2维的代码。这也是因为对于Excel的工作表来说，行和列，就是表示2维，我们处理的数据区域很多都是围绕行和列进行处理。因此，我们只要掌握的二维数组，就掌握了对Excel的数据处理。 下面通过2幅图来理解二维数组： 1、定义一个二维数组 Dim arrSource(1 to 100, 1 to 10) As Long 2、定义一个三维数组 Dim arrSource(1 To 10, 1 To 6, -1 To 5) As Long 注：我们可以通过节点的多少来判断数组维数。 六、数组函数 1、Array 函数 返回一个包含数组的 Variant。 Array函数在运行代码执行期间创建数组，而不必事先知道数组的大小。