墙上那一串串红辣椒——数组入门讲座

hetai

我也来学数组，请山老师指教：

我想先给数组赋值（ 1,2,3,..100)，然后一次性写入Sheet1的A1:A100中，下面的代码为何不成？

Sub aa()
  Dim arr(100) As Integer
   For i% = 1 To 100
    arr(i) = i
   Next
 Cells(1, 1) = arr
End Sub

山菊花

Option Base 1
Sub aa()
  Dim arr(100) As Integer ’Arr是一个水平数组
   For i% = 1 To 100
    arr(i) = i
   Next
 Cells(1, 1) = arr
 Range("a1:a100") = WorksheetFunction.Transpose(arr) ’转置
End Sub

或：

Option Base 1
Sub aa()
  Dim arr(100, 1) As Integer ’定义二维数组Arr()
   For i% = 1 To 100
    arr(i, 1) = i
   Next
 Range("a1:a100") = arr
End Sub

hetai

 谢谢老师。

我记得一些资料说，一次性写入数组，只需指定起始单元格，整个数组就会顺延填满其余单位格，

所以我用cells(1,1)=arr

如果这可行的话，不用判断数组的大小， 不用预配空间，将给编程带来很大方便。

fecmen

山老师：

   你好，你的帖子很精彩！我最近碰到一个关于数组方面的难题，恳请帮忙解决一下。大致如下：

   我事先声明了一个可变的数组   dim abc()

   后根据情况需将其重置为3维的    redim abc(n,i,x)   并且给其均已赋值

   之后情况有变，上面abc中的一维n有变需增加，我的要求是在保留abc()原有数值的基础上增加一维维数，而根据数组的redim定义，

   而redim preserve 只能更改最后一维的维数，有什么好方法可以满足我的要求呢？（n的维数最多，i维，x维的维数较少，并且他们维数是不等的）

  

[此贴子已经被作者于2008-2-1 14:10:56编辑过]

山菊花

Redim 只能重定义数组最末维的大小。

建议改变原来的思路，适应Redim的限制。

fecmen

QUOTE:

以下是引用山菊花在2008-2-1 14:23:22的发言：

Redim 只能重定义数组最末维的大小。

建议改变原来的思路，适应Redim的限制。

谢谢山老师的快速答复。我这有个限制啊，因为数组的变化后的值最后要装载到listbox里面的，一维的值是名称（要显示在lisbox里的），二维的值是相

应的属性（也要显示在listbox里的），三维的值是相应的判断项（不显示在listbox里），显示在listbox里的顺序是先名称后属性的，这我是不能绕过去

的。如果遍历数组的话则感觉很耗时间。

BobPan

QUOTE:

以下是引用fecmen在2008-2-1 14:47:33的发言：

谢谢山老师的快速答复。我这有个限制啊，因为数组的变化后的值最后要装载到listbox里面的，一维的值是名称（要显示在lisbox里的），二维的值是相

应的属性（也要显示在listbox里的），三维的值是相应的判断项（不显示在listbox里），显示在listbox里的顺序是先名称后属性的，这我是不能绕过去

的。如果遍历数组的话则感觉很耗时间。

试试可不可以用三个一维数组代替

fecmen

“用三个一维数组代替”是可以绕过去的，如果能把三个一维数组一下子合并成一个数组的话，再装载到listbox里面就可以了，可我不知如何合并数组。

另我目前的知识只知道，listbox只能显示一个数组的值，不知能否把数组不同维的值移位显示呢？

[此贴子已经被作者于2008-2-1 15:17:38编辑过]

lidning

非常精彩   刚用过数组   还是这里的代码好啊

quake7890

再次感谢，山版

[em17]