怎么在excel中实现三维数组取值呢

假设有20张工作表，每张表的第一行为表头信息，共10列100行数据。现用三维数组存放这些数据。代码如下：
sub test（）
dim arr（1 to 20,1 to 100,1 to 10） '第一维：工作表 第二维：对应的行 第三维：对应的列
for i=1 to 20

for j=1 to 100
for k=1 to 10
arr(i,j,k)=sheets(i).cells(j+1,k)
next k
next j
next i
end sub
可以在最后一句设置断点，查看数据的数据。