Excel vba怎样取多个表的同个区域到数组中

Excel vba怎样取多个表的同个区域到数组中

上传表格，我录制一个gif

array(arglist) 返回一个包含数组的 variant。 所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 variant 所包含的数组的各元素赋值。如果不提供参数，则创建 一个长度为 0 的数组。 取工作表区域的转置到数组：arr=application.transpose([a1:c5]) ‘此时arr是转置成3行5列的数组，arr(1 to 3,1 to 5) [e1:i3]=arr ‘此时3行5列。 数组间也可以转置：arr1=application.transpose(arr) 取数组arr的第n列赋值到某列区域：[e1:e5]=application.index(arr, 0, n) 也可写成 [e1:e5]=application.index(arr, , n) 赋值产生一个新数组：arr1=application.index(arr,0 , n) 取数组arr的第n行赋值到某行区域：[a6:c6]=application.index(arr,n ,0 ) 也可写成 [a6:c6]=application.index(arr,n ) 省略0，也省略了“，“ 赋值产生一个新数组：arr1=application.index(arr, n ) 1、一维转二维。 sub t9() arr = array(1, 35, "a", 4, 13, "b") arr1 = application.transpose(arr) msgbox arr1(2, 1) ‘转换后的数组是1列多行的二维数组 end sub 2、二维数组转一维。 sub t2() arr2 = range("a1:b4") arr3 = application.transpose(application.index(arr2, , 2)) '取得arr2第2列数据并转置成1维数组 msgbox arr3(2,) end sub