【VBA自学笔记(一)】数组

'最开始的时候，我喜欢将数组中的元素先串为字符串，然后用Split()方法创建数组，但这种方式比较麻烦，效率也不高

'最近想起了一般人正常是用Redim来创建数组，但网上都没有整合好的函数，所以尝试用更简洁的方式来操作数组。

'数组函数大概需要有以下几个基本功能：创建、增加、减少、查找

'VB的可变体变量，实在太方便了....

'=======创建一个数组对象=======

'创建一个只有1个元素的数组，并赋一个初始值，这个初始值将用于判断

Function ArrayItemReset()
Dim arr(0)
arr(0) = "***Arr*initial***"                        
ArrayItemReset = arr
End Function

'=======增加一个元素===========

Function ArrayItemAdd(ArrayObject, Item)
Dim ArrCount, OArr(), i
If ArrayObject(0) = "***Arr*initial***" Then
    ReDim OArr(0)
    OArr(0) = Item
Else
    ArrCount = UBound(ArrayObject)
    ReDim OArr(ArrC