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...
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过程,在该...
可以编写自定义函数,将二维数组元素复制到ArrayList: Sub GetItemFromArray2D() Dim alColl As Object Set alColl =Array2DToArrayList(Worksheets("Sheet1").Range("A1:A3").Value) DebugPrint alColl End Sub Function Array2DToArrayList(arr As Variant) As Object '检查是否是二维数组 If UBound(arr, 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” Set rng = Range(sRangeName) col.Add rng, sRangeName ...
1. 通过Array函数可以构建一个数组: Array(数值1, 数值2, ...) Array函数的参数可以有多个,且可以为任意类型。 Array函数的返回结果为Variant 2. 为数组变量赋值: Sub array数组() Dim arr() As Variant arr = Array(1, 2, 3, 4) For i = LBound(arr) To UBound(arr) Debug.Print arr(i) Next...
Debug.Print varArray(r,c) Next c Next r End Sub ‘把数组的值赋给单元格 Sub ArrayToRange2() Dim aData(2,2) as Variant Dim RowCnt As integer,ColCnt as integer aData(0,0)=1 aData(0,1)=2 aData(0,2)=3 aData(1,0)=4
ZeroDivisionError as e: print('except:', e) finally: print('finally...') print('END...
Debug.Print Arr(i) '可以修改数组 Arr(i) = Rnd Nexti EndSub 方式二: 使用foreach 1 2 3 4 5 6 7 8 9 10 11 12 Sub遍历数组2() '声明一个变量 DimArrAsVariant '声明一个变量 DimiAsVariant '变量类型指定为数组并赋值 Arr = Array(1, 2, 3, 4, 5) ...