sub Mycell()
dim i as byte
for i = 1 to 10
sheets("sheet1").cells(i,1).value = i
next
End sub
03-14
4219
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)
05-02
9549
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)
10-17
1万+
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)
sub Mycell()
dim i as byte
for i = 1 to 10
sheets("sheet1").cells(i,1).value = i
next
End sub