EXCELVBA数组word版.docVIP

EXCEL VBA数组 ?????A.按维数划分 ????????1维数组 ????????Sub?t1() ??????????Dim?arr(1?To?10) ??????????For?x?=?1?To?10 ????????????arr(x)?=?x ??????????Next?x ?????????Stop ????????End?Sub ?????? ????????2维数组 ????????Sub?t2() ??????????Dim?arr(1?To?10,?1?To?2) ??????????For?x?=?1?To?10 ????????????For?y?=?1?To?2 ??????????????arr(x,?y)?=?x?*?y ????????????Next?y ??????????Next?x ?????????Stop ????????End?Sub 3维数组 ?????????Sub?t3() ??????????Dim?arr(1?To?10,?1?To?2,?1?To?3) ??????????For?x?=?1?To?10 ????????????For?y?=?1?To?2 ??????????????For?z?=?1?To?3 ????????????????arr(x,?y,?z)?=?x?*?y?+?z ??????????????Next?z ????????????Next?y ??????????Next?x Stop ????????End?Sub B?按储存类型划分 ?? ?常量数组 ????????Sub?t4() ??????????arr?=?Array(1,?2,?3,?4,?5) ??????arr1?=?Array(Array(1,?2),?Array(10,?20),?Array(100,?200))?数组的中储存数组 ??????arr2?=?[{a,1;b,2;c,3}]?调用工作表内存数组构成VBA二维数组 ??????????Stop ????????End?Sub ???????? ???静态数组:固定大小的数组 ??????????静态数组声明方法 ?????????????dim/public/private?数组名称(?第一维数组上标?to?第一维数组下标,第二维上标?to?第二维下标......) ???????????Sub?t5() ?????????????Dim?arr1(10)?声明一个上标是0,下标是10的数组 ?????????????Dim?arr2(1?To?10)?声明一个上标是1,下标是10的数组 ?????????????Dim?arr3(1?To?10,?1?To?2)?声明一个10行2列的二维数组 ???????????End?Sub ??????????? ???????动态数组:大小不固定的数组 ???????????动态数组的声明方法:和静态数组不同的时，动态数组需要先用Dim声明，数组大小得出 结果后还需要再用Redim进行二次声明。 ????????????Dim?数组名称() ???????????Redim?数组名称(?第一维数组上标?to?第一维数组下标,第二维上标?to?第二维下标...) ???????????? ?例1: ??Sub?darr() ??Dim?arr()??声明一个动态的arr数组(不知道它能盛多少数据) ??Dim?k ??k?=?Application.WorksheetFunction.CountIf(Range(a2:a60),?10)?计算大于10的个数 ??ReDim?arr(1?To?k)??再次声明arr的大小,正好盛下k数量的值 ??For?x?=?2?To?6 ????If?Cells(x,?1)??10?Then ??????m?=?m?+?1 ??????arr(m)?=?Cells(x,?1)??通过循环把大于10的数字装入数组 ????End?If ??Next?x ??MsgBox?arr(2) End?Sub ??如果数组需要随一个变量不断的扩充，数组就需要多次声明，每扩充一次就声明一次： Redim?Preserve?(1?to?k) ??如果数组是多维的，只能动态声明第末维的，如果需要把让第一维不断扩充，还需要先转置， 有点麻烦，这里就不再详述，遇到这种情况，我们可以声明一个足够大的静态数组来取代动态数组，运行速度较前者快。 1?单元格区域存入VBA数组 Sub?test() ??Dim?arr?????声明一个变量用来盛放单元格数据 ??