下面定义公共数组方法哪一个是对的呢？

nanfanglang

第一种：定义完公共数组后运行主过程
Dim  re() As Single,arr
xrow = Range("e:e").End(xlDown).Row
arr=Range("e1:e" & xrow)
ReDim re(1 To xrow)
for i=1 to xrow
re(i)=arr(i,1)

Sub main()
t = Timer
youhuakd
'调用优化 过程
Range("m3") = Timer - t
MsgBox "程序运行时间" & Range("m3")
End Sub

第二种：运行主过程后定义公共数组  数组在后面的函数和过程中要调用
Sub main()
t = Timer
Dim  re() As Single,arr
xrow = Range("e:e").End(xlDown).Row
arr=Range("e1:e" & xrow)
ReDim re(1 To xrow)
for i=1 to xrow
re(i)=arr(i,1)

youhuakd
'调用优化 过程
Range("m3") = Timer - t
MsgBox "程序运行时间" & Range("m3")
End Sub


请高手给帮忙回答，感恩ing！！！

nanfanglang

请高手给帮忙回答，感恩ing！！！

nanfanglang

请高手给帮忙回答 ，谢谢啊

风云际会6

正确的是
Sub main()
t = Timer
Dim re() As Single, arr
xrow = Range("e:e").End(xlDown).Row
arr = Range("e1:e" & xrow)
ReDim re(1 To xrow)
For i = 1 To xrow
re(i) = arr(i, 1)
Next
Range("m3") = Timer - t
MsgBox "程序运行时间" & Range("m3")
End Sub

nanfanglang

谢谢！好人

nanfanglang

还是有问题
http://club.excelhome.net/thread-818338-1-1.html