关于offset的问题

suvenweibo

怎样循环自动移动100格

sub 单击
for i=1 to 100
[A1:]offset(i,2)    "我想由A1一直移动到A100.这段应该是怎么写的"
i=i+1
next i

end sub

byhyxb

1. 
   
2. Sub 单击()
   
3.     Dim i%
   
4.     For i = 1 To 100
   
5.         Cells(1, i).Select
   
6.     Next i
   
7. End Sub

复制代码

dajiahaoxinku12

Sub 单击()
For i = 1 To 100
Range("A1").Offset(i) = 100
i = i + 1
Next i

End Sub
不知道楼主要用offset做什么？