龙空技术网

VBA数组与字典解决方案第32讲:数组的拆分和维数转换

VBA语言専攻 3227

前言:

此刻大家对“vb 函数返回数组”大体比较注意,看官们都需要学习一些“vb 函数返回数组”的相关文章。那么小编在网摘上网罗了一些有关“vb 函数返回数组””的相关资讯,希望我们能喜欢,咱们快快来了解一下吧!

大家好,我们今日继续VBA数组与字典解决方案的讲解,今日讲解第32讲,数组的拆分和维数转换:

一 数组的拆分

1. 用Index拆分数组

数组的拆分在VBA中是一个难题,如果是按行拆分数组,除了用循环外也只能借用API函数完成了。幸好我们可以借用工作表函数index达到按列拆分数组。

语法:数组形式INDEX(array,row_num,column_num)

参数:

① Array 为单元格区域或数组常量。

② 如果数组只包含一行或一列,则相对应的参数 row_num 或 column_num 为可选。

如果数组有多行和多列,但只使用 row_num 或 column_num,函数 INDEX 返回数组中的整行或整列,且返回值也为数组。

③ Row_num 数组中某行的行序号,函数从该行返回数值。如果省略 row_num,则必须有Column_num。

④ Column_num 数组中某列的列序号,函数从该列返回数值。如果省略 column_num,则必须有 row_num。

特别说明:

①如果同时使用 row_num 和 column_num,函数 INDEX 返回 row_num 和 column_num 交叉处的单元格的数值。

②如果将 row_num 或 column_num 设置为 0,函数 INDEX 则分别返回整个列或行的数组数值。Row_num 和 column_num 必须指向 array 中的某一单元格;否则,函数 INDEX 返回错误值 #REF!。

例:=INDEX(A2:B3,2,2) 返回单元格区域的第二行和第二列交叉处的值

=INDEX(A2:B3,2,1) 返回单元格区域的第二行和第一列交叉处的值

2 用Index函数取出任意一列的数组

我们可以任意拆分出一列构成新的数组。方法是:Application.Index(数组, , 列数) 。

Sheets("32").Select

'数组的拆分

arr1 = Range("A1:C10") '把单元格区域A1:B4的值装入数组arr1

arr2 = Application.Index(arr1, , 2) '把数组第2列拆分出来装入新数组arr2中,新数组为二维数组

MsgBox arr2(2, 1) '取出新数组第2行的值

二 数组维数的转换

Transpose转置数组在工作表中可以把行列转换。在VBA中同样也可以做到转换的效果。

1、一维转二维。

'数组维数的转换

arr3 = Array(10, 350, "aq", 40, 103, "bw")

arr4 = Application.Transpose(arr3)

MsgBox arr4(2, 1) '转换后的数组是1列多行的二维数组2、二维数组转一维。

2 两维转一维注:在转置时,当只有1列N行的数组才能直接转置成一维数组

'数组维数的转换2维转1维

arr1 = Range("A1:C10") '把单元格区域A1:B4的值装入数组arr1

arr5 = Application.Transpose(Application.Index(arr1, , 2)) '取得arr1第2列数据并转置成1维数组

MsgBox arr5(2)

今日代码实例:

Sub MyNZsz_32() '第32讲 数组的拆分和维数的转换

Sheets("32").Select

'数组的拆分

arr1 = Range("A1:C10") '把单元格区域A1:B4的值装入数组arr1

arr2 = Application.Index(arr1, , 2) '把数组第2列拆分出来装入新数组arr2中,新数组为二维数组

MsgBox arr2(2, 1) '取出新数组第2行的值

'数组维数的转换

arr3 = Array(10, 350, "aq", 40, 103, "bw")

arr4 = Application.Transpose(arr3)

MsgBox arr4(2, 1) '转换后的数组是1列多行的二维数组

'数组维数的转换2维转1维

arr1 = Range("A1:C10") '把单元格区域A1:B4的值装入数组arr1

arr5 = Application.Transpose(Application.Index(arr1, , 2)) '取得arr1第2列数据并转置成1维数组

MsgBox arr5(2)

arr6 = Range("A1:C1")

MsgBox Join(Application.Transpose(Application.Transpose(arr6)), "-")

End Sub

代码截图:

看我们的工作表:

上述代码共要弹出4个对话框:

分别是什么呢?大家不难看出看出分别弹出:

今日内容回向;1 如何拆分数组?

2 如何使数组维数发生转换?

3 arr6 = Range("A1:C1")

MsgBox Join(Application.Transpose(Application.Transpose(arr6)), "-")

上述代码中 为什么要进行两次转置?

标签: #vb 函数返回数组