mylook()Dim arrarr = [{"a",10;"b",20;"c",30}]Range("a1:b3") = arrMsgBox Application.WorksheetFunction.VLookup...("b", arr, 2, 0) '调用vlookup时可以作为第二个参数End Sub '动态数组的定义方法Sub arrDemo5()Dim arr1() '声明一个动态数组(动态指不固定大小)Dim...arr2 '声明一个Variant类型的变量 arr1 = Range("a1:b2") '把单元格区域A1:B2的值装入数组arr1arr2 = Range("a1:b2") '把单元格区域...A1:B2的值装入数组arr2 MsgBox arr1(1, 1) '读取arr数组中第1行第1列的数值MsgBox arr2(2, 2) '读取arr1数组的第2行第2列的数值End Sub2、数组的赋值和计算...A的数值组成一个新数组arr2 = VBA.Filter(arr, "A", False) '筛选所有不含A的数值组成一个新数组MsgBox Join(arr1, ",") '查看筛选的结果End Sub5