求一EXCEL 规律调格子函数或者是宏

2003版
求个能自动把A2..A4.A5........A2N 换到 B1 ..B3..B5....BN的函数或者宏
先给100.然后追加
A2转到B1
A4到B3
A6到B5
.
.
.
一直这样推下去
B为空

我是典型的小白。。麻烦说的在详细点谢谢

Sub 填充()
Dim i, N As Integer
N = InputBox("N=", "输入变量N")
For i = 1 To N
Cells(i, 2) = Cells(2 * i, 1)
Next i
End Sub

转到是什么意思？是拷贝吗？
就是说把A列偶数行的东西拷贝到B列奇数行的格子里（B列比A列向上错一行） ？

这样的话下面的代码可以
Public Sub Copy1()
  Dim s1 As Long, n As Long
  n = InputBox("处理的行数:")
  For s1 = 2 To n Step 2
   Sheet1.Cells(s1 - 1, 2) = Sheet1.Cells(s1, 1)
  Next
End Sub

用的时候选菜单“工具->宏->宏...”然后输入宏名Copy1点创建，把上面代码粘贴过去替换它自动生成的空函数，然后按F5选择并运行即可。

Sub Macro4()
Dim i As Integer
For i = 1 To 100 Step 1

Cells(2 * i, 1).Select
Selection.Copy
Cells(i, 2).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next

End Sub

以上实现的是10行的复制,如果是100行将前面的n=10改成n=100.

B1=A2再下拉复制不行吗？
如果A、B列互换：
For i = 1 to N