我想定义一个从 0 到 50 的数组,步长为 10。我看起来像:arr = [0;10;20;30;40;50]
应该是这样的
Dim arr As Variant
arr = Array(0:10:50)
但这显然行不通。
任何想法?
最佳答案
如果您想用固定增量的值填充数组,请使用以下命令(将 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
关于arrays - 在 VBA 中定义数组设置步长值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/40018231/