例如：定义数组：arr（） 后怎样将第二列的第5行到第二列的第50000行这个区间的单元格的数据快速赋值给数组arr，然后可执行这个数组的上下限，就像excel一样：arr= Range("b5:b5000") ，然后可以使用 For j = 1 To UBound(arr)

下面的的方法感觉很慢：

Private Sub Command1_Click()
ReDim arr(5 To 50000)   '定义数组的上标与下标
For I = 5 To 50000
arr(I) = MSFlexGrid1.TextMatrix(I, 2)    '第二列的第5行到第5000行赋值到数组arr中
Next I
End Sub
谢谢！

[此贴子已经被作者于2016-6-4 17:52编辑过]

我想先把数据放到数组，然后再来处理数组，这样运行速度会快一些，在数据处理上因用惯了vba的一套总想找到那种感觉

[此贴子已经被作者于2016-6-4 17:06编辑过]

同等数据条件下，我感到运行速度比excel慢很多

我主要是想将excel的数据（600万行）放在MSFlexGrid1（实际是VSFlexGrid表格）表格来处理，看看这个速度是否比在excel中快，现在感到比在excel中慢，找找原因看是不是数组赋值的问题，否则只能学习用数据库了，谢谢版主。。。。。。

[此贴子已经被作者于2016-6-4 19:56编辑过]