EXCEL高手用VBA奇数写入A列单元格

Question

EXCEL高手用VBA奇数写入A列单元格

把100以内正奇数1,3,5,7.....顺序写进A列单元格，可以用下面

Sub jishu()
Dim i As Integer
xrow = 1
For i = 1 To 100 Step 2
Cells(xrow, "a").Value = i
xrow = xrow + 1
Next
End Sub

如何改成成隔一行写进A列,这些奇数?
尽可能能用多种方法写VBA

Answer 1

Sub jishu()
Dim i As Integer
For i = 1 To 100 Step 2
Cells(i, "a").Value = i
Next
End Sub