:一维转二维。MsgBoxarr1(2,1)‘转换后的数组是1列多行的二维数组EndSub2、二维数组转一维。arr3=Application.transpose(Application.Index(arr2,,2))'取得arr2第2列数据并转置成1维数组MsgBoxarr3(2,)