在 VBA 中创建范围

Question

我正在开发我的第一个 VBA 函数。目标是拥有一个接受两个整数作为输入的函数，并输出一个包含两个输入（包括端点）之间的所有整数的数组。

示例：如果我输入 5 和 9，输出应该是 5、6、7、8、9 的数组。

VBA 似乎没有我在其他语言中习惯的任何对象或功能。 Python 有一个 range() 函数，但我所知道的大多数其他语言都有可以附加到的类似列表的类型。这在 VBA 中如何运作？

我不想创建一个 Excel 范围，而是一个包含两个值之间的范围的数组。

Answer 1

如果你询问单元格多范围那么你可以使用这个：

Sub test1()
    Dim nStart&, nEnd&
    Dim Rng As Range
    nStart = 5: nEnd = 9
    Set Rng = Range("A" & nStart)
    While nStart <> nEnd
        Set Rng = Union(Rng, Range("A" & nStart + 1))
        nStart = nStart + 1
    Wend
    Debug.Print Rng.Address(0, 0)
End Sub

输出

A5:A9

如果你问的不是 cells.range 而是数组范围那么你可以使用这个：

Sub test2()
    Dim nStart&, nEnd&
    Dim Rng() As String, i&
    nStart = 5: nEnd = 9
    For i = 0 To nEnd - nStart
        ReDim Preserve Rng(i)
        Rng(i) = nStart
        nStart = nStart + 1
    Next i
    For i = 0 To UBound(Rng)
        Debug.Print Rng(i)
    Next i
End Sub

或者你可以使用这个：

Sub test3()
    Dim nStart&, nEnd&
    Dim Rng As Object, key As Variant
    Set Rng = CreateObject("Scripting.Dictionary")
    nStart = 5: nEnd = 9
    While nStart <> nEnd + 1
        Rng.Add nStart, Nothing
        nStart = nStart + 1
    Wend
    For Each key In Rng
        Debug.Print key
    Next key
    Set Rng = Nothing
End Sub

最后两个变体的输出将相同

Answer 2

Function RangeArray(startAt As Long, endAt As Long) As Long()
    Dim arr() As Long, i As Long, n As Long
    n = endAt - startAt
    ReDim arr(0 To n)
    For i = 0 To n
        arr(i) = startAt + i
    Next i
    RangeArray = arr
End Function

Sub Tester()
    Dim arr
    arr = RangeArray(5, 10)
    Debug.Print arr(LBound(arr)), arr(UBound(arr))
End Sub

Answer 3

仅适用于 Excel 的上下文（根据问题和标签不确定）

如果你想要一个不处理数组的单行代码，你可以利用 ROW 函数和 Excel.

中的 Application.Evaluate

代码

Function RangeArr(int_start As Integer, int_end As Integer) As Variant

    RangeArr = Application.Transpose( _
                    Application.Evaluate("=ROW(" & int_start & ":" & int_end & ")"))

End Function

结果

在 VBA 中创建范围

Creating a Range in VBA

vba

range