本书97页最下角那道题，我自己做的，但是错误，求解

t375992948

求高手帮忙看看我这几句简单代码问题出在哪里？？？求解
本书97页最下角那道题，我自己做的，但是错误，求解

t375992948

求解啊啊，到底错在哪里呢？？

grf1973

数组x(1 to 100)只定义没赋值。
for each i in x后，第一个i=x(1)为空值，所以cells(i,"A")会出错。

grf1973

然后，，，，for each i in x表示i为x中各项，后面i=i+1就不对了

ggsmart

或者使用FOR NEXT，不用FOR EACH

wkc720

供参考，我也是才学。

1. Sub shulie()
   
2. Dim i As Variant, arr()
   
3. arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
   
4. For Each i In arr
   
5. Cells(i, "A") = i
   
6. Next
   
7. End Sub

复制代码

wkc720

用for  next循环更简单，见下方代码

1. Sub shulie()
   
2. Dim i As Variant
   
3. For i = 1 To 100
   
4. Cells(i, "A") = i
   
5. Next
   
6. End Sub

复制代码