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

最新推荐文章于 2024-10-07 13:34:35 发布

薛定谔_51

最新推荐文章于 2024-10-07 13:34:35 发布

阅读量2.4k

点赞数 3

分类专栏： # Excel VBA 文章标签： excel vba

本文链接：https://blog.csdn.net/hhhhh_51/article/details/123953122

版权

Excel 同时被 2 个专栏收录

79 篇文章 76 订阅

订阅专栏

VBA

76 篇文章 28 订阅

订阅专栏

本文介绍如何使用VBA在Excel中将二维数组arr拆分为按行的arr1和按列的arr2，并演示了单行输出arr3的方法。通过Application.index函数实现数据提取和转换，适合处理工作表数据操作。

摘要由CSDN通过智能技术生成

Sub 二维数组按行列拆分()
	Dim arr, arr1, arr2, arr3
    arr = [a1].CurrentRegion.Value
    '按行拆分
    arr1 = Application.index(arr, 2)
    [f1].Resize(1, UBound(arr1)) = arr1
    '按列拆分
    arr2 = Application.index(arr, , 2)
    [f2].Resize(UBound(arr2), 1) = arr2  '二维，单列输出
    arr3 = WorksheetFunction.Transpose(Application.index(arr, , 2))
    [f2].Resize(1, UBound(arr3)) = arr3  '一维，单行输出
End Sub