VBA学习笔记--数组和单元格互相转换

Posted Jacklovely

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VBA学习笔记--数组和单元格互相转换相关的知识,希望对你有一定的参考价值。

说明(2017.3.23):

1. VBA的数组还是很难用的,其实就是非常难用!

2. 要先定义一个数组,可以是空的,也可以里面写个数字作为数组长度。

3. 如果是空数组,可以后面redim重新定义数组长度。如果不是空的,再用redim就会报错“数组维数已定义”!

4. dim里面不能用变量,报错“只能用常数表达式”,里面只能用具体数字。

5. redim不能重新定义数组维数,就是说本来dim了一个一维数组,redim不能把它改成二维数组。

6. redim里面貌似能用变量。

7. 两种方法,一种定义一维数组,需要结果transpose转成行。另一种定义二维数组,结果直接写入单元格。

总结:

1. VBA的数组超级难用,用过的最难用的!

 1 第一种方法,定义一个一维数组,存放乘积,用transpose换成列后,写入单元格
 2 Public Sub test()
 3     Dim arr()
 4     arr = Range("a7: b24")
 5     arrNum = UBound(arr)
 6     如果arr2是个一维数组,后面要用transpose列转行
 7     Dim arr2()
 8     ReDim arr2(1 To UBound(arr, 1))
 9     
10     For i = 1 To UBound(arr, 1)
11         arr2(i) = arr(i, 1) * arr(i, 2)
12     Next
13     resize从这个单元格往下数多少行,第二个参数是多少列
14     transpose把arr2的列转成行
15     Range("e7").Resize(UBound(arr2), 1) = Application.Transpose(arr2)
16 End Sub
17 第二种办法,定义一个二维数组,存放乘积,直接写入单元格
18 Public Sub test2()
19     Dim arr()
20     arr = Range("a7: b24")
21     arrNum = UBound(arr)
22     如果arr2一开始就定义为二维数组,后面就不用转成行了
23     Dim arr2(1 To 18, 1 To 1)
24     本来想用变量作为数组大小,不过好像不支持,redim也不能含有变量,而且不能重新定义二维数组
25     ReDim arr2(1 To 18,1 To 2)
26 
27     For i = 1 To UBound(arr, 1)
28         arr2(i, 1) = arr(i, 1) * arr(i, 2)
29     Next
30     resize从这个单元格往下数多少行,第二个参数是多少列
31     Range("e7").Resize(UBound(arr2), 1) = arr2
32 End Sub

 

以上是关于VBA学习笔记--数组和单元格互相转换的主要内容,如果未能解决你的问题,请参考以下文章

VBA学习笔记之合并单元格

VBA学习笔记之单元格查询系统制作

VBA学习笔记之单元格格式实例

vba中怎么用代码将单元格内容转换为文本类型?

VBA学习笔记之End属性&查找最后的单元格方法总结

excel或者vba,怎样将工作簿内所有橙色单元格公式转换为数值?