如何將列B的所有行粘貼到Excel VBA中的列A的第n行

Question

我有兩個數據列，如Al A，A2，A3，A4等的Excel中的Col A和Col B. 。 。 和B1，B2，B3，B4，.....現在，我想將Col B數據（B1，B2，B3，B4，......）復制到Col A的每第n行或者復制到Odd行或者甚至是行。 我更清楚了我的問題，如下圖所示，

之前的數據

ColA 
A1     
A2     
A3    
A4    
A5    

。

而且ColB有類似的數據

B1 
B2
B3
B4
B5

...

我想要下面的ColA數據，

A1
B1
A3
B2
A4
B3
A6
B4    and so on

Answer 1

這將產生交錯排列：

Sub interleave()
    Dim nB As Long
    Dim j As Long, i As Long

    nB = Cells(Rows.Count, "B").End(xlUp).Row
    j = 2

    For i = 1 To nB
        Cells(j, 1).Value = Cells(i, 2).Value
        j = j + 2
    Next i
End Sub

Answer 2

Sub Interleaved()
  Dim i As Integer, j As Integer

  i = 2
  j = 1

  Do
    Range("A" & i).Value = Range("B" & j).Value
    i = i + 2
    j = j + 1
  Loop Until Range("A" & j) = ""
End Sub