网站首页 > 教程分享 正文
大家好,今日我们继续讲解VBA数组与字典解决方案的第19讲:动态数组的定义及创建。在VBA中,数组可分为固定数组和动态数组,也称为静态数组和动态数组。我们之前所定义的数组,都是静态数组。静态数组的特点是具有大小的数组。当我们事先知道数组的大小,我们可以直接声明为静态数组。固定数组定义方法:DIM 数组名(<下届>TO<上届>)。
但如果事前不知道数组大小时,怎么办呢?在事前不知道数组的大小时,可以声明数组为动态数组,在需要指定数组大小时,再使用ReDim语句分配数组的实际元素的个数。
1、动态数组是可以改变大小的数组,通过在数组名称后附带空括号来声明,如:
Dim arrSheetName() as String
2、在定义动态数组之后,必须使用ReDim来设置动态数组的上界和下界,为数组重新分配存储空间。
3、我们可以使用ReDim语句反复地改变数组的元素个数。
下面我们将通过一个实例来讲解动态数组的利用:
比如一个工作表的C列存储了学生姓名,现在我们需要把把有姓"王"的学生存储在数组arr中,预先我们并不知道C列姓王的学生有三十个还是五十个,所以,我们在定义时代码可以这样:
代码:
Sub MyNZsz_2()
Dim arr() As String
erow = [c65536].End(3).Row '最后一个非空单元格行号
j = 1 '数组索引号
xcount = Application.WorksheetFunction.CountIf([c1:c65536], "王*") '统计有多少姓王的学生
ReDim arr(1 To xcount) '重新定义数组大小,元素共有xcount个
For i = 1 To erow
If Left(Cells(i, 3).Value, 1) = "王" Then
arr(j) = Cells(i, 3).Value '给数组元素赋值
j = j + 1 '索引号加1
End If
Next i
[d1:d65536].Clear '清除原有数据
[d1].Resize(xcount, 1) = Application.WorksheetFunction.Transpose(arr) '将数组输入单元格区域
End Sub
代码截图:
代码的解读:
1 Dim arr() As String 定义了一个动态数组。
2 xcount = Application.WorksheetFunction.CountIf([c1:c65536], "王*") '统计有多少姓王的学生
ReDim arr(1 To xcount) '重新定义数组大小,元素共有xcount个
通过求出姓王的学生的个数从而知道数组的上下界
3 Application.WorksheetFunction.Transpose(arr) 讲数组arr 的内容转置填充,对于一维数组来说,中间是以逗号分隔的,如果想纵向填充,要进行转置,这可以结合之前工作表数组的表述来理解,逗号是分列,分号是分行。
运行结果:
今日内容回向;
1 什么是动态数组?
2 动态数组和静态数组有什么区别?
猜你喜欢
- 2024-09-17 c语言 数组(c语言数组定义)
- 2024-09-17 VBA数组与字典解决方案的第17讲:工作表数组大小扩展及意义
- 2024-09-17 Linux编程Shell之入门——Shell获取数组长度
- 2024-09-17 HashMap数组长度为什么是2的n次方
- 2024-09-17 2024-08-28:用go语言,给定一个从1开始、长度为n的整数数组nums
- 2024-09-17 C语言数组那些事儿,C语言基础教程之数组
- 2024-09-17 一文看懂PG数据类型之数值类型、字符类型、日期类型、数组类型
- 2024-09-17 C语言基础之数组(c语言数组语句)
- 2024-09-17 2023-12-20:用go语言,给定一个数组arr,长度为n,在其中要选两
- 2024-09-17 「清晰易懂」数据结构与算法之数组
你 发表评论:
欢迎- 最近发表
- 标签列表
-
- css导航条 (66)
- sqlinsert (63)
- js提交表单 (60)
- param (62)
- parentelement (65)
- jquery分享 (62)
- check约束 (64)
- curl_init (68)
- sql if语句 (69)
- import (66)
- chmod文件夹 (71)
- clearinterval (71)
- pythonrange (62)
- 数组长度 (61)
- javafx (59)
- 全局消息钩子 (64)
- sort排序 (62)
- jdbc (69)
- php网页源码 (59)
- assert h (69)
- httpclientjar (60)
- postgresql conf (59)
- winform开发 (59)
- mysql数字类型 (71)
- drawimage (61)
本文暂时没有评论,来添加一个吧(●'◡'●)