电子商务网站开发这书不出版了吗,建设一个官方网站的费用,开发app租用服务器价格,木门行业做网站有什么好处大家好#xff0c;我们今日继续讲解VBA代码解决方案的第110讲内容#xff1a;VBA数组讲解#xff0c;什么是数组#xff0c;如何定义数组#xff0c;如何创建数组一、什么是数组 就是数组共享一个名字#xff0c;有着多个元素按顺序排列的变量。在数组中#xff0c;元素…大家好我们今日继续讲解VBA代码解决方案的第110讲内容VBA数组讲解什么是数组如何定义数组如何创建数组一、什么是数组 就是数组共享一个名字有着多个元素按顺序排列的变量。在数组中元素通过索引加以区分。这里我把数组的元素看做变量来对待大家要注意这个观点在应用过程中是非常有意义的。二、如何定义数组 声名数组同声明其他变量的方式一样唯一不同的是数组有大小即有多少个元素或者说变量还有就是要说明数组的维数。如下面的代码:Sub Mynzsmart()Dim i As Integer, j As IntegerDim arr(1 To 10, 1 To 2) As Integer 定义一个10*2的二维数组(10行2列)j 1 数组1 to 10的索引号For i 1 To 20 Step 2arr(j, 1) i 赋值arr(j, 2) i 1 赋值j j 1 索引号增加Next[a1:b65536].Clear 清除原有数据[a1].Resize(10, 2) arr 将数组赋值给A1单元格向下10行向右2列的区域End Sub代码截图运行后三、动态数组在上面的讲解中我们知道声明一个数组必须指定数组的大小即它是几维数组有多少个元素。但有些时候我们在定义数组的时候并不能确定数组的大小这时我们在首次定义数组的时候括号内为空(当然先指定一个大小也是可以的但纯属是多余)在程序过程中用Redim语句去重新指定数组的大小这就是动态数组。比如一个工作表的C列存储了学生姓名现在我们需要把把有姓王的学生存储在数组arr中预先我们并不知道C列姓王的学生有三十个还是五十个所以我们在定义时代码可以这样代码:Sub MyNZsmarttwo()Dim i%, xrow%, j%, xcount%Dim arr() As Stringerow [c65536].End(3).Row 最后一个非空单元格行号j 1 数组索引号xcount Application.WorksheetFunction.CountIf([c1:c65536], 王*) 统计有多少姓王的学生ReDim arr(1 To xcount) 重新定义数组大小元素共有xcount个For i 1 To erowIf Left(Cells(i, 3).Value, 1) 王 Thenarr(j) Cells(i, 3).Value 给数组元素赋值j j 1 索引号加1End IfNext i[d1:d65536].Clear 清除原有数据[d1].Resize(xcount, 1) Application.WorksheetFunction.Transpose(arr) 将数组输入单元格区域End Sub运行结果今日内容回向1 什么是VBA数组。什么是动态数组2 VBA数组如何声明
