arrays - 在 VBA 中定义数组设置步长值

Question

我想定义一个从 0 到 50 的数组，步长为 10。我看起来像:arr = [0;10;20;30;40;50]
应该是这样的

Dim arr As Variant
arr = Array(0:10:50)

但这显然行不通。

任何想法？

Answer 1

如果您想用固定增量的值填充数组，请使用以下命令(将 NumElements 和 Increment 更改为您需要的值):

Sub FillArray()
Dim I As Integer, Arr() As Long
Const NumElements As Integer = 6
Const Increment As Integer = 10

    ReDim Arr(1 To NumElements)
    For I = 1 To NumElements
        Arr(I) = (I - 1) * Increment
    Next I
End Sub