Dim y1 As String, y2 As String, y3 As String

For i = 1 To 3
y(i) = "1" '这句无效，怎样带入循环
Next i

MsgBox y1
Msgbox y2
Msgbox y3

Dim y(3) As String
For i = 1 To 3
  y(i) = "1" '这句无效，怎样带入循环
Next i

MsgBox y(1)
MsgBox y(2)
MsgBox y(3)

Dim y(3) As String , i As Integer
    For i = 1 To 3
        y(i) = "1"
        MsgBox y(i)
    Next i

or

Dim y(3) As String, i As Integer
    For i = 1 To 3
        y(i) = "1"
    Next i
    MsgBox Join(y, vbCrLf)