Macro ile 2.satırdaki bilgileri 1. satırdaki bilgilerin yanına taşıma

[zafergur]

Herkese merhaba,

Ekteki dosyada örnek olarak göreceğiniz gibi 2.satırdaki bilgileri makro ile 1.satırın yanına taşımak istiyorum. Örnek dosyada 10 satır var ama ben bunu yaklaşık 60.000 satırda yapacağım.

Bu konuda acemi olduğum için bunu beceremedim. Bana yardımcı olabilir misiniz?

 

[veyselemre]

Sub Makro1()
For x = 3 To [a65536].End(3).Row Step 2
    Range(Cells(x, 1), Cells(x, 1).End(xlToRight)).Cut Cells(x - 1, "h")
Next x
End Sub

 

[zafergur]

Tam istediğim gibi

Veysel Bey tam istediğim gibi oldu. Size çok çok teşekkür ederim yardımınız için.

 

[zafergur]

Boş Satırlar

Veysel Bey cut edip taşıma işleminden sonra boş kalan hücreleri nasıl sildirebiliriz? Filtrleme yapmak istediğimde hücreler boş olmadığı için gelmiyor. Bunu da makro içinde yapmak mümkün müdür?

 

[veyselemre]

Sub Makro1()
    son = [a65536].End(3).Row
    If (-1) ^ son = 1 Then son = son - 1
    For x = son To 3 Step -2
        Range(Cells(x, 1), Cells(x, 1).End(xlToRight)).Cut Cells(x - 1, "h")
        Rows(x).Delete
    Next x
End Sub

 

[zafergur]

Teşekkürler

Veysel Bey çok teşekkürler...