Sub zhidao() For i = 0 To 9 Cells(i + 2, 1).Value = i Cells(i + 2, 2).Value = 4 * i NextEnd SubExcel 2007下测试通过
同上,呵呵