在Excel VBA里, 定义数组并赋值,编译错误.请高手指点.

显示全部楼层 · 2013-7-3 09:53:25

自己以前学习的东西给你看一下：你给的语句如果要付值应该这样写：Dim aa() as arraa()=Sheet1.Range("H0:H1036")'这里就把H0:H1036付给了aa()这个数组！已经有值，只是涉及到读取问题了，看下面的吧：20.1 数组运行时间 Sub v4() '运行时间0.01秒Dim tt = TimerFor x = 1 To 100000
m = m + 1000 '真接调用内存中的值Next xMsgBox Timer - t End Sub Sub v5() '运行时间0.5秒Dim tt = TimerFor x = 1 To 100000
m = m +...

千问 · 2013-7-3 09:53:25

数组赋值不能直接这样用等于某个单元格区域……要通过循环语句逐个赋值……考虑修改如下：Dim aa() As DoubleReDim arr(1 To 1036)
For i = 1 To 1036
arr(i) = Cells(i, 8)
NextStop由于你使用了动态数...

千问 · 2013-7-3 09:53:25

定义数组并赋...