Ara satır açarak kopyalama

[betpakdala]

Merhaba ,

2 sutunum var , birindeki verileri diğerinin aralarına gelecek şekilde kopyalamak istiyorum. Örnek olması açısından dosya ekledim. Formulasyon kuramadım. Yardımcı olabilen olursa şimdiden teşekkür ederim.

 

[hamitcan]

Sub NN()
    Columns(4).Clear
    k = 2
    For i = 2 To [b65536].End(3).Row
        Cells(k, 4) = Cells(i, 2)
        k = k + 1
        Cells(k, 4) = Cells(i, 3)
        k = k + 1
    Next
    MsgBox "Bitti."
End Sub