使用for循环vba声明数组

Question

我想制作一个值数组：w1，w2，w3，y1，y2，y3。。。等等，但在我的代码中出现了一个错误：

sub array()
Dim titles() as string
For i = 1 to 3
titles(i + 0) = "w" + i
titles (i + 3) = "y" + i
titles (i + 6) = "x" + 1
'...
Next i
End sub

Answer 1

您非常接近：

Sub arrray()
    Dim titles(1 To 9) As String
    Dim i As Long
    For i = 1 To 3
        titles(i + 0) = "w" & i
        titles(i + 3) = "y" & i
        titles(i + 6) = "x" & i
    Next i
    For i = 1 To 9
        MsgBox titles(i)
    Next i
End Sub