获得macro1中的数组
Sub xx()Dim s() As Integermacro1 5, sMsgBox s(0) & vbCrLf & s(1)End Sub
Sub macro1(ByVal x As Integer, ByRef sa() As Integer)ReDim sa(1)
x = 1
sa(0) = x + xsa(1) = x * xEnd Sub
VBA中一个过程或函数返回多个值（数组地址）
原文：http://www.cnblogs.com/Mrerdong/p/4635171.html
