VBA数组入门第4例：数组导入到单元格中

tomle · 发表于 2012-7-15 14:22

有点烦，看时会记的过几天就忘光了

jiangbo0505 · 发表于 2013-2-15 16:14

看时会记的过几天就忘光了

jackie-ap · 发表于 2013-3-12 17:42

謝謝分享
支持一下

seki_100 · 发表于 2013-6-26 16:28

Sub test1()
  Dim arr(1 To 5) '声明一维数组
  For x = 1 To 5
arr(x) = x * 2  '通过循环给每个位置赋值
  Next x
Range("A1:E1") = arr '把数组导入到excel中的a1:e1单元格中
Range("A1:A5") = Application.Transpose(arr) '如果是放在一列中,就需要对数组进行转置后再存放
End Sub

这其中x变量没定义么

匿名 *发表于 2014-10-16 15:49* · 发表于 2014-10-16 15:49

请问楼主，如果数据中有几列是透视表，那么透视表后边的列在数组赋值时就赋不上去了是怎么回事？有没有其他方法可以实现？

xiaofei1989 · 发表于 2016-2-2 10:31

那如果进得去，如何出来呢？了解了ARR其实就是空间的概念，可以是一维的，也可以是二维的，就是空间的概念，range是区域的概念，是excel里面的区域，我这样理解对吗？

		自动登录	找回密码
密码			注册

[分享] VBA数组入门第4例：数组导入到单元格中