在VBA中为数组分配范围

Question

我正在尝试如下：

1. 将计算块中的列（例如A10：A100）传递给函数func（myrng as Range）

2. 将此范围myrng分配给数组myrng_arr

最好的方法是什么？

提前致谢！

Answer 1

将范围直接传递给数组。

Sub arr
    Dim arr() As Variant
    arr() = Range("A10:A100")
End Sub

或者如果你真的需要这两个步骤：

Sub arr
    Dim arr() As Variant
    Dim rng As Range
    Set rng = Range("A10:A100")
    arr() = rng
End Sub

编辑证明：