请教：定义一个公共数组，怎么定义啊？

mini5417

是这样啊，我吧定义放错地方了。谢谢！！

dghotman

定義公共數組, 一般是在模塊的宣告中用public arrData([r], [c]) as DataType來聲明, 在其它的過程或函數中用Redim重新設置它的維數, 並對其賦值, 然後才引用它.

Long_III

重新问一下

如果我这样处理，对我的影响有多少？因为我放了一些数据到dictionary里，这种做法可行吗？（因为我怕出现其他不确定的错误）

下面是用在一个自定义的函数里，这样我的原始数据就只导入一次，我想比每次都导入要快吧

Public ds As New Scripting.Dictionary

Function column1(s)
If ds.Count = 0 Then
Debug.Print "x"
arr = Sheet3.[a1:b10]
For i = 1 To 10
ds.Add CStr(arr(i, 1)), CStr(arr(i, 2))
Next
End If
column1 = ds(CStr(s))
End Function

northwolves

应该可行.Long_III兄是想做查询用吧?但字典终究也是对象,跟数组比究竟谁快,不好说.

Long_III

是做查询，根据原先的实验，dictionary的查询速度很快且稳定，故首选

[分享+测试]替代Vlookup函数，在超大数据量下进行查找

http://club.excelhome.net/viewthread.php?tid=135761&replyID=&skin=0

不过上面的方法也有缺点，就是我修改了原始数据之后，dictionary里面的数据不会变，除非重新给它赋值。我现在的做法是这样的

Function column1(s)
Dim ds As New Scripting.Dictionary
arr = Sheet3.[a1:b10]
For i = 1 To 10
ds.Add CStr(arr(i, 1)), CStr(arr(i, 2))
Next

column1 = ds(CStr(s))
End Function

感觉也还可以吧，哎，就这样马马虎虎用吧