能不能将三维数组中的一部分二维区域一次性赋值给一个单元格区域？

aoe1981

　　目的：把三维数组中的数值赋值给一堆工作表：
　　三维数组：fbxx(班级，行数，列数)
　　根据班级的不同把后面两维的数值赋值给不同的工作表，工作表与班级相对应。
　　注意，万不得意就用逐元素赋值的方法，我想整片整片的赋值！

yjh_27

循环

自定义函数  （还是循环）

doitbest

前面赵刚老师不都写好了吗，把数组读回表格即可

aoe1981

yjh_27 发表于 2014-7-23 20:05
循环

自定义函数  （还是循环）

对，最终我还是用的循环，逐个赋值，速度还是可以的！

aoe1981

doitbest 发表于 2014-7-23 21:19
前面赵刚老师不都写好了吗，把数组读回表格即可

我可能是受了application.index的影响，之前是整行整行的赋值的，现在只好一个元素一个元素的赋值，不过速度还是很可以的，对比测试后的附件见下面的链接：
http://club.excelhome.net/forum. ... 631&pid=7766577

doitbest

index速度不快，尽量少用

aoe1981

doitbest 发表于 2014-7-23 23:45
index速度不快，尽量少用

多谢，记下了，这个通过对比感觉明显啊……

香川群子

使用嵌套数组即可。

Dim arr(班级)
然后每一个班级使用二维数组即可。

以下为嵌套数组运用示例：

1. Sub test()
   
2.     Dim ar(1 To 3) '定义存放3个班级的一维嵌套数组
   
3.     Dim br(1 To 20, 1 To 10) '定义存放班级中每个学生信息的二维数组
   
4.     For i = 1 To 3
   
5.         ar(i) = br '班级一维数组初始化 (每个元素都赋值为二维数组)
   
6.     Next
   
7.     '以上完成嵌套数组初始化，效果相当于构建了一个arr(1 To 3, 1 To 20, 1 To 10)的三维数组。
   
8. 
   
9.     '以下是相当于三维数组的【一维嵌套二维数组】的 数组元素读写操作例子
   
10.     For n = 1 To 3
    
11.         s = "Class-" & n & ": "
    
12.         k = 0
    
13.         For i = 1 To 20
    
14.             For j = 1 To 10
    
15.                 k = k + 1
    
16.                 ar(n)(i, j) = s & k
    
17.                 '相当于三维数组的 arr(n, i, j) = s & k 用法
    
18.             Next
    
19.         Next
    
20.     Next
    
21.    
    
22.     '以下是一维嵌套二维数组结果 直接向单元格输出的示例：
    
23.     For i = 1 To 3
    
24.         Sheets(i).Range("a1").Resize(20, 10) = ar(i)
    
25.     Next
    
26.     '非常简单 不需要任何转换 可以直接完成。
    
27. End Sub
    

复制代码

香川群子

aoe1981 发表于 2014-7-23 23:55
多谢，记下了，这个通过对比感觉明显啊……

一维、二维数组如果使用我的Index2自定义函数提取，速度上就不会有问题了……呵呵。

aoe1981

香川群子 发表于 2014-7-24 09:55
一维、二维数组如果使用我的Index2自定义函数提取，速度上就不会有问题了……呵呵。

我现在使用的是定义三维数组的方法，我把这个改完了以后，再折腾下你的index2试试……我目前优化到了3.5秒，人家高手的在2秒……原因之一我估计是我是把逐个元素赋值给逐个单元格的……人家是一张工作表一个区域一次性赋值……