标题: 单元格区域跳转计算的问题 [打印本页] 作者: qweasdzxc123 时间: 2008-10-25 21:09 标题: 单元格区域跳转计算的问题 代码如下：
Sub 按钮1_单击()
Dim a, b, i, j As Integer
a = Val(InputBox("请输入计算次数："))
Range("A10").Value = 1000
For i = 11 To a + i
Cells(i, 1).Value = Cells(i - 1, 1) + 400
Next i
End Sub
假定输入200次，这这段代码运行的结果：是从A10单元格开始连续计算200次数据。
我要的目的是：从A10单元格开始到A28单元格计算18次，然后间隔10行跳转到A38单元格向下再次计算18次，在间隔10行跳转到A66单元格向下继续计算18次，以此类推，直到200次计算完成，请问下：代码如何修改？谢谢！