Sub t()
ReDim sname(4) As String
For i = 1 To 4
f = InputBox("Enter")
sname(i) = f
Next i
Sheet1.Range("A1:A4") = sname(i)
End Sub
我想把数组元素写到A1到A4，最后的一句提示下标越界。

Sub t()
ReDim sname(4) As String
For i = 1 To 4
f = InputBox("Enter")
sname(i) = f
Next i
For i = 1 To 4
    Range("A" & i).Value = sname(i)
Next
End Sub

谢谢版主提供的资料库!

谢谢版版，还要用循环来写吗，我记得有个array或什么记不清了，好象是可以一次性写入的。

Option Base 1
Sub t()
ReDim sname(4) As String
For i = 1 To 4
f = InputBox("Enter")
sname(i) = f
Next i
Sheet1.Range("A1:A4") = Application.Transpose(sname())
End Sub

楼主的数组下标默认为0，而楼主从1开始循环，自然不对，应用option base 1 定义下标

谢谢zhouzc88的提醒!

再补充一点.通常,返回的数组按水平方向排列,要赋值给垂直方向的单元格,需要进行转置.