Excel·VBA二维数组按行列拆分

Sub 二维数组按行列拆分()Dim arr, arr1, arr2, arr3arr &＃61; [a1].CurrentRegion.Value&＃39;按行拆分arr1 &＃61; Application.index(arr, 2)[f1].Resize(1, UBound(arr1)) &＃61; arr1&＃39;按列拆分arr2 &＃61; Application.index(arr, , 2)[f2].Resize(UBound(arr2), 1) &＃61; arr2 &＃39;二维&＃xff0c;单列输出arr3 &＃61; WorksheetFunction.Transpose(Application.index(arr, , 2))[f2].Resize(1, UBound(arr3)) &＃61; arr3 &＃39;一维&＃xff0c;单行输出
End Sub


举例