excel 宏里面循环语句怎么写？？？

for i = 17 to 28

cells(i,2)="SQRT....此处省略N个字"

next

Dim i As Integer

For i = 4 To 12
If i <> 8 Then
Range("B"&i).Select
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="../00" & (i - 3)
End If
Next

这样能看到EXCEL表的变化，试来试吧，这没在本地测试过自，如有问题再讨论，祝你zd成功！
Dim i
For i = 1 To 100
If Range("O" & i) = "" Then ‘不百等“”就直接跳度到end if后的代码了。
’等知于空值要执道行的代码写在这版里就行权了。
End If
Next

sub xx()
dim n%,i%
n=cells(1,1)
for i=1 to n
cells(i,3)=right((1000+i) & cells(1,2),5)
next i
end sub