Vba 将奇数行从一列复制到另一列'；这是偶数行

我有一张大约有860条记录的纸。大小可以不同，但不会超过1000行

我想将代码应用于整个工作表

我想从A列复制奇数行的值，并将该值粘贴到B列的偶数行中

我想从C列复制奇数行的值，并将该值粘贴到D列的偶数行中

我想从列E复制奇数行的值，并将该值粘贴到列F的偶数行中

我不知道如何转到下一个奇数行（A5到B4，C5到D4，E5到F4），直到值出现空白，这将是我的工作表的结尾

Sub myAwesomeMacro（）
对于i=1到1000
范围（“A3”）。复制范围（“B2”）
范围（“A3”）。复制范围（“D2”）
范围（“E3”）。复制范围（“F2”）
接下来我
端接头

我试图在这个循环中实现的目标：
复制A3并将该值粘贴到B2
复制C3并将该值粘贴到D2
复制E3并将该值粘贴到F2

然后，取下一个奇数行，按照相同的模式进行：
复制A5并将该值粘贴到B4
复制C5并将该值粘贴到D4
复制E5并将该值粘贴到F4

然后，取下一个奇数行，按照相同的模式进行：
复制A7并将该值粘贴到B6
复制C7并将该值粘贴到D6

---

复制E7并将该值粘贴到F6

您可以执行以下操作：

Sub myAwesomeMacro（）
我想我会坚持多久
i=3
Do While Len（单元格（i，1）.Value）>0
单元格（i，1）。复制单元格（i-1，2）
细胞（i，3）。复制细胞（i-1，4）
细胞（i，5）。复制细胞（i-1，6）
i=i+1
环
端接头

它会完成你的工作

Dim i As Long
Dim lastrow As Variant

With ActiveSheet
   lastrow = .Range("A" & .Rows.Count).End(xlUp).Row
   For i = 3 To lastrow
      .Cells(i-1, "B") = .Cells(i, "A")
      .Cells(i-1, "D") = .Cells(i, "C")
      .Cells(i-1, "F") = .Cells(i, "E")
   Next i
End With