老是提示数组下标越界，该怎么处理呢

老是提示数组下标越界，该怎么办呢
vba?excel
[解决办法]
data(i + 1)
->
data(i)
[解决办法]
晕，UBound(data)得到最大的下标。i最大取到它
那么data(i + 1)肯定越界啊。