求一个计算循环的程序

cehui1002

本人是刚学习vba编程，遇到像这样的问题，请各位大侠指教！如：起始数据为22，结束数据为52，每次递加5的循环；循环后为22,25,30,35,40,45,50,52。
希望能附个程序上来！谢谢！

jkczfpb

回复 cehui1002 的帖子

1. 
   
2. Sub t3()
   
3. For z = 22 To 52 Step 5
   
4. x = z
   
5. Next z
   
6. End Sub

复制代码

cehui1002

ni 你这样循环后的结果是22，27,32,37,42,47,52.

yuhe0008

Sub test()
j = 1
For i = 22 To 52 Step 5
If i <= 22 Or i >= 52 Then x = i Else x = i - 2
Cells(j, 1) = x
j = j + 1
Next
End Sub

cehui1002

回复 yuhe0008 的帖子

谢谢，这个程序我采用了。