vba - 带有简单数字集的 Visual Basic 填充数组

Question

我需要用数字 1-50 填充一个数组，我目前有代码：

Dim numberSet(49)
For x = 1 To 50
numberSet(x - 1) = x
Next x

挑战在于以尽可能少的行数做到这一点。这部分困扰着我，因为看起来我不应该将 4 行用于如此基本的东西。

你们有什么想法吗？如果可以的话，我想避免做类似的事情= {1,2,3,4,5...50}。谢谢！

Answer 1

在一行中：

Dim numberSet(49): For x = 1 To 50: numberSet(x - 1) = x: Next x

Answer 2

一行（但它创建了一个基于 1 的数组......）

Sub TT()

    Dim arr

    arr = Application.Transpose([=ROW(A1:A50)])

    Debug.Print UBound(arr)
    Debug.Print arr(1)
    Debug.Print arr(13)

End Sub

...如果您关闭，Option Explicit您可以跳过声明。但不要那样做;-)