例如：定义数组：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编辑过]

MSFlexGrid.rows
 MSFlexGrid.cols
 就是MSFlexGrid最大行和列数，一样可以用做for的控制，为什么一定要数组呢。

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

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

ReDim arr(5 To 50000)   '定义数组的上标与下标
For I = 5 To 50000
arr(I) = MSFlexGrid1(I, 2)    '第二列的第5行到第5000行赋值到数组arr中
修改为：
arr(I) = MSFlexGrid1.TextMatrix(I, 2)
Next I

定义arr数组应该是字符型数据，你这样处理应该是可以的，前提是MSFlexGrid1的第二列的第5行到第5000行必须有值。

我用过DataGrid传到Excel，估计修改下可以达到你的目的。
Set Newxls = CreateObject("excel.application")         '创建Excel应用程序并打开之
     Newxls.Workbooks.Open (App.Path & "\Coinage.xls")   '打开EXCEL工作簿
      Newxls.Worksheets(1).Select '选择工作表
      Newxls.Rows("1:5000").Clear        '清除表格内容

With DataGrid
 Dim Num列数%
  For i = 1 To .ApproxCount    ' .ApproxCount近似行数，网格以此来校准垂直滚动条
     .Bookmark = i
        For j = 0 To .Columns.Count - 1
          If j = 0 Then Num列数 = .Columns.Count - 1
           Newxls.Cells(1, j + 1).Value = .Columns(j).Caption      '第一行显示表提　　.Value设置或返回当前行的一列中的基本数据值
           Newxls.Cells(i + 1, j + 1).Value = .Columns(j).Text
        Next j
  Next i
End With

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

不清楚你为何要这么做，5000行数据在窗口里面如何看？
如果是用数据库了，直接用SQL语句查询就可以。

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

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

没有这样试过，但是有可能，因为excel可能是直接将一个区域的指针赋值给数组指针就可以。而grid中需要循环

vsflexgrid单列赋值给数组
dim arr
arr = Split(grid.Cell(flexcpText, 0, 1, grid.Rows - 1, 1), vbCr)