如题所述
:一维转二维。
MsgBox arr1(2, 1) ‘转换后的数组是1列多行的二维数组 End Sub 2、二维数组转一维。
arr3 = Application.transpose(Application.Index(arr2, , 2)) '取得arr2第2列数据并转置成1维数组 MsgBox arr3(2,)
MsgBox arr1(2, 1) ‘转换后的数组是1列多行的二维数组 End Sub 2、二维数组转一维。
arr3 = Application.transpose(Application.Index(arr2, , 2)) '取得arr2第2列数据并转置成1维数组 MsgBox arr3(2,)
温馨提示:答案为网友推荐,仅供参考