[已解决]如何调用另一个宏里面已赋值的数组？

秋意正浓

比如：
Sub a()
Dim arr
arr = Range("a1:a20")
End Sub

Sub b()
Range("i2").Resize(UBound(arr), 1) = arr‘这里如何取得SUB A中的ARR数据？据说可以用公式变量或FUNCTION返回值？麻烦各位指导一下
End Sub
有附件

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-7-2 12:17

Public arr  ' 定义成模块级变量或者Static 过程级变量
Sub a()
arr = Range("a1:a20")
End Sub
Sub b()
Range("i2").Resize(UBound(arr), 1) = arr '‘这里如何取得SUB A中的ARR数据？据说可以用公式变量或FUNCTION返回值？麻烦各位指导一下
End Sub

跳转到最佳答案楼层

那么的帅

Public arr  ' 定义成模块级变量或者Static 过程级变量
Sub a()
arr = Range("a1:a20")
End Sub
Sub b()
Range("i2").Resize(UBound(arr), 1) = arr '‘这里如何取得SUB A中的ARR数据？据说可以用公式变量或FUNCTION返回值？麻烦各位指导一下
End Sub