Excel：数组（Array）
⼀、概念
1.数组（Array）
数组就是⼀组相同类型的数据的有序集合，通过索引来访问数组中的各个元素。
醉卧沙场君莫笑2.集合（Collection）
Collection集合是我们在使⽤类时最常⽤到的对象。
⼀个Collection对象代表⼀组相关的项⽬。
集合是⼀组数据信息，存放于⼀个⼀维数组中，以便⽤户随时访问、增添、删除同类信息。
当你事先不知道要存放数据的个数，或者你需要⼀种⽐数组下标存取机制更灵活的⽅法时，你就需要⽤到集合类。
3.字典（Dictionary）
字典不是VBA内置的类型，VBA中的字典是微软Windows脚本语⾔中的⼀个很有⽤的对象，字典是由具有唯⼀性的关键字（Key）和它的项（Item）组成的集合，Key相当于字典中的每个字，具有不重复性，Item相当于对字典中每个字对应的解释。
⼩结：
通过概念来看，数组、字典和集合相同点都是存储⼀组数据，不同的是数组可以有⼀维数组、⼆维数组或者多维数组，集合和字典看起来就像⼀个⼀维数组，只不过集合⾥每个元素存储⼀个对象，字典⾥每个元素是存储⼀对值（Key和Item）。
⼆、声明语法
1.数组
a.静态数组。所谓静态数组，即它的长度是固定不可变的，在括号中注明数组的起始索引和结束索引即可，声明⽅法如下：
其中a、b、c、d均为数字，表⽰数据的索引起始值和末尾值。
也可以只写⼀个数字，则此时数组使⽤默认索引，从0开始，数字表⽰它的最⼤下标索引。如下图：
b.动态数组。如果在定义时并不知道需要使⽤的数组的长度是多少，则可以定义它为动态数组。定义动态数组，只需要在括号⾥⾯留空即可，如下图：
待确定了数组的长度之后，可以使⽤ReDim来重新定义数组，如下图：
三、使⽤
显⽰所有数组元素，以，间隔
Function display_array(arrays)
Dim result As String
键盘右边数字按不出来怎么回事result = ""
Dim array_len As Integer
array_len = UBound(arrays) + 1
For i = 0 To array_len - 1
If result = "" Then
result = arrays(i)
El
犹字组词
result = result & "," & arrays(i)
End If
Next
移除数组指定位置的元素
Function remove_index_in_array(arrays, index)
Dim array_len As Integer
array_len = UBound(arrays) + 1
For i = index To array_len - 2
arrays(i) = arrays(i + 1)
Next
琳琅满目的近义词If (array_len < 2) Then
stim99Exit Function
End If
ReDim Prerve arrays((array_len - 2))
remove_index_in_array = arrays
End Function
向数组后追加⼀个值
Function inrt_array_end(arrays, value)
Dim array_len As Integer
array_len = UBound(arrays) + 1
很简单英文ReDim Prerve arrays((array_len))
arrays(array_len) = value
inrt_array_end = arrays
End Function
判断两个数组的是否⼀样（值与顺序军⼀样）Function is_euqal(array_1, array_2)
array_1_len = UBound(array_1) + 1
array_2_len = UBound(array_2) + 1
If (array_1_len <> array_2_len) Then
is_euqal = Fal
Exit Function
El牡丹花长什么样
For i = 0 To array_1_len - 1
If (array_1(i) <> array_2(i)) Then
is_euqal = fale
Exit Function
End If
Next
End If
is_euqal = True
End Function
获取数组最后⼀个元素的值
Function get_array_last_value(arrays)
Dim array_len As Integer
array_len = UBound(arrays) + 1
get_array_last_value = arrays(array_len - 1)
End Function
设置数组最后⼀个元素的值
Function t_array_last_value(arrays, value)
Dim array_len As Integer
儿童节英语array_len = UBound(arrays) + 1
arrays(array_len - 1) = value
t_array_last_value = arrays
End Function
