VBA 二维数组整体直接赋值的方法小结 | 您所在的位置:网站首页 › vba如何将数组清空 › VBA 二维数组整体直接赋值的方法小结 |
一维数组可以通过这样一行代码来整体赋值:arr = Array("你", "我", "他", 1, 2, 3, "aa", "bb", "cc") 那么,如果想给二维数组采用类似的方法来整体赋值,要怎么办呢? arr=array("你", "我", "他" ; 1,2, 3 ; "aa", "bb", "cc"),好像不行。 一番搜索,网上给出的答案有如下: 第一种:使用[{}]将字符串括起来,字符串行间用分号(;)分割,列间用逗号(,)分割: arr = [{"你", "我", "他"; 1, 2, 3; "aa", "bb", "cc"}] 第二种:使用array函数进行构造,但要转置两次后方可得到结果 arr=Array(Array("你", "我", "他"),Array(1, 2, 3),Array("aa", "bb", "cc")) arr=Application.Transpose(Application.Transpose(arr)) 第三种:使用evaluate,大部分情况下 等同于[] arr = Application.Evaluate("{""你"", ""我"",""他"";1 , 2 , 3 ;""aa"", ""bb"" , ""cc""}") 特殊情况, 以上三种情况,当一行代码写起来太长,不方便检查,需要按多行来写时,第1种办不到,第2种代码太多,第3种稍有优势。 数字类型的,可以按如下方法书写: arr= application.Evaluate("{1,3;" _ & "2,30;" _ & "3,50;" _ & "4,80}") 文本类型的,记得双引号由一对变两对书写: arr = Application.Evaluate("{""你"", ""我"",""他"";" _ & "1 , 2 , 3 ;" _ & """aa"", ""bb"" , ""cc""}") 最后总结一下三种方法的特点: 序号代码示意代码特点字符串数量(个)有文本时字符串双引号数量代码行数1arr=[{ 字符串 }]精简1一对12arr=Array(Array(字符串1),Array(字符串2),Array(字符串3))复杂多一对多3arr = Application.Evaluate("{ 字符串 }“)普通1,多两对多
|
CopyRight 2018-2019 实验室设备网 版权所有 |