提示 下标越界~~怎么解决啊？？？

如何判断详解 ~~~？？
我的用EXCEL编的VBA
Dim A() As String
Dim i As Integer
Dim ry As String
Dim n As Integer
ry = Range("b1").Value
i = Len(ry)
For n = 1 To i
A(n) = Mid(ry, n, 1)——依照下面那位兄弟的修正~~
Range("b(15+n)").Value = A(n)
Next
目前以下回答测试有的提示 下标越界~~~~~求解~
一直提示下标越界，不然就是提示range（b15+n）不能用 ~~~

如果是普通变量，检查一下变量类型是否有误。
如果是数组，就检查一下是否需要增加数组的大小。

应该把print a（i）放在next i前面。 即生成一个随机数，就打印。循环执行。 放在后面的话应为执行了next，所以i = 6了，超出了a数组的下标范围，就越界了。

判断在数组的大小

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息