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