Kayan veri düzenlemesi

[kimsekim12]

merhaba arkadaşlar elimdeki veriler kaymış ve kayan verileri nasıl düzelteceğimi bilmiyorum yardımcı olurmusunuz

örnek:
13085920682
13082920746
13079920810
13076920974
13073921028
13070921182
13067921256
13064921310
13061921474 13214916388
13217916224
13220916150
13223916096

şu tek satır olmuş kısmı nasıl hemen sonu 74 ile bitem sayını altına koyabilirim

 

[YUSUF44]

Örnek dosya paylaşınız. Paylaşma yöntemi imzamda var.

 

[kimsekim12]

Örnek dosya paylaşınız. Paylaşma yöntemi imzamda var.

buraya yükledim https://cikti.al/km45

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub yerinetaşı()
    son = Cells(Rows.Count, "A").End(3).Row
    For i = son To 1 Step -1
        If Cells(i, "B") <> "" Then
            Cells(i, "B").Cut: Cells(i + 1, "A").Insert Shift:=xlDown
        End If
    Next
End Sub

 

[Korhan Ayhan]

Lütfen profilinizdeki ofis süürmü bilgisini güncelleyiniz!