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...
接收数组结果的变量(如示例中的myArray())必须是动态数组,并且必须与返回的数组有相同的数据类型(如示例中的Long型),或者声明为Variant变量(例如,Dim myArray As Variant)。 如果接收数组结果的变量(如示例中的myArray())是静态数组,那么...
SubTestMyVlookup()Dim ret As Variant Dimtable_array()As Variant table_array=Range("B1:C16").Value ret=MyVlookup("张三",table_array,2,0)Debug.Print"MyVlookup返回值",ret ret=Application.WorksheetFunction.VLookup("张三",table_array,2,0)Debug.Print"Excel Vlookup返回值",ret End Sub 输出: My...
For i = LBound(Arr) To UBound(Arr) Arr(i) = i * i Debug.Print Arr(i) Next i End Sub 对于数组myArray来说,如果其下限为0,那么该数组元素的总数为: UBound(myArray)+1 如果其下限为1,则数组元素的总数就等于UBound的返回值。 一般说来,数组...
ToArray())) arrayList.Clear Set arrayList = Nothing End Function 该函数中,参数strPath是要导入的文本文件所在路径及文件名,参数strDelim是文本文件中用于分隔值的分隔符。 假设一个名为“myFile.txt”的文件存储在路径“C:\test\”中,可以使用下面的过程来调用这个自定义函数: 代码语言:javascript 代码运行...
Debug.Print arr1(i) Next End Sub Sub testArr2() '静态数组,静态在维数不变,长度不变,具体的某个内容可以变化 'Dim arr2 As Variant '错误写法 Dim arr2(2) As Variant '定义了一个静态数组,且为存储为变量类型 Dim i arr2(0) = 1 arr2(1) = "a" For i = LBound(arr2, 1) To UBound...
DimvarData(3)AsVariant varData(0) ="Claudia Bendel"varData(1) ="4242 Maple Blvd"varData(2) =38varData(3) = Format("06-09-1952","General Date") 另一种方法是将Array函数返回的数组分配给Variant变量,如以下示例所示: VB DimvarDataAsVariant varData = Array("Ron Bendel","4242 Maple Blvd...
() Dim arr As Variant arr = Array("A", "B", "A", "C", "B") Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") Dim i As Integer For i = LBound(arr) To UBound(arr) dict(arr(i)) = 1 Next i Dim key As Variant For Each key In dict.Keys Debug.Print key...
Method 1 – Convert a Range to a Two-Dimensional Array Using the Range Object of Excel VBA Steps: Here we’ll convert the rangeB4:E13into an array of dimensions10, 4(Row10, Column4). Declare the name of the array using the data typeVariant. Here, we’ve declared it asMyarray. ...
Debug.Print arr(i) Nexti 上面的代码遍历一维数组,下面的代码遍历二维数组: For i = LBound(arr, 1) To UBound(arr, 1) For j = LBound(arr, 2) To UBound(arr, 2) Debug.Print arr(i, j) Next j Next i 如果将计数变量声明为variant型,那么还可以使用For Each循环遍历数组: ...