Sütunu Ters Yapıştırma

[lavetera]

Merhabalar.

Ben A sütunundaki verileri B sütununa ters çevirip yapıştıracak kodu arıyorum.
Örnek

A B
3 56
6 8
23 23
8 6
56 4

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayın ve deneyin.

Sub TersKopyala()

    Dim i   As Long, _
        j   As Long
    
    Application.ScreenUpdating = False
    
    For i = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
        j = j + 1
        Cells(j, "B") = Cells(i, "A")
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "İşlem tamamdır...."
    
End Sub