Question

VBA中如何在声明自定义函数之前给数组赋值

本人是VBA小白
自定义函数需要用到数组，数组是从excel工作表中获取数值
现在数组赋值的语句只能放在自定义函数中，否则无法赋值，这样每次引用函数都会重复赋值，以后数据量大了怕会excel。能不能把数组赋值的语句放在函数外？

Answer 1

可以在函数中定义静态类型

Static A '只能定义通用类型，否则IsEmpty 检查不出来。
If IsEmpty(A) Then '这样保证数组只赋值一次
ReDim A(5) As String
'对数组赋值操作
End If