MyArray myArr() End Sub Sub MyArray(ByRef arr() As Long) Dim i As Long For i = LBound(arr) To UBound(arr) Debug.Print arr(i) Next i End Sub 下面的代码从函数过程中返回数组: Sub test31() Dim myArray() As Long D...
例如: Dim MyArray(5) As Integer Dim i As Integer For i = 0 To 5 MyArray(i) = i Nexti ‘访问第2个元素 Debug.Print MyArray(1) 数组的索引值默认从0开始。 集合 Dim col As Collection Dim rng As Excel.Range Dim sRangeName As String Set col = New Collection sRangeName= “RangeName...
Sub MyArray(ByRef arr() As Long) Dim i As Long For i = LBound(arr) To UBound(arr) Debug.Print arr(i) Next i End Sub 下面的代码从函数过程中返回数组: Sub test31() Dim myArray() As Long Dim i As Long myArray = GetArray For i = LBound(myArray) To UBound(myArray) Debug.Pr...
SubtestPassArray(ByRef passArray() As Long) Dim i As Long For i = LBound(passArray) ToUBound(passArray) passArray(i) = (i + 1) * 100 Next i End Sub 在代码中: 将数组myArray传递到被调用的testPassArray过程,在该...
' Fill the array For i = 1 To 5 Numbers(i) = i * 2 Next i ' Retrieve the values For i = 1 To 5 Debug.Print Numbers(i) Next i 数据分析 数组也常被用于进行数据分析。通过数组可以方便地对数据集合进行分类、求和或查找特定元素。使用数组,可以编写算法来执行这些任务,进而生成报告或图表。
Sub DebugPrint(alColl As Object) Dim i As Long For i = 0 To alColl.Count - 1 Debug.Print alColl(i) Next i End Sub 运行结果如下图7所示。 图7 “克隆”ArrayList 使用Clone方法可以创建ArrayList的全新副本: Sub testClone() Dim alColl1 As Object ...
Debug.Print "数组第1个元素的值: " & arr(0) 运行结果如下图4所示。 图4 小结 数组非常容易理解,存储和获取数据都很方便,使用也很简单。其最大的特点是,可以方便地存储一组同类型的数据,非常快捷地获取存储的数据,只要你知道数据在数组中的索引值。
Array(以英文逗号隔开的数据序列表) 使用数组值初始化数组 动态数组 声明动态数组 Dim<数组名>()As<数据类型> ReDim函数隐式数组声明 ReDim<数组名>([索引下界]To索引上界) 每次使用ReDim后数组中的值会丢失,若要保留原有值,可使用ReDim Preserve语句扩充数组 ...
Debug.Print MyArray(1) 数组的索引值默认从0开始。 集合 下面的代码先声明集合对象,然后在添加元素项时定义键值: Dim col As Collection Dim rng As Excel.Range Dim sRangeName As String Set col = New Collection sRangeName= "RangeName" Se...