Sütunda dolu olan hücreleri alt alta birleştirmek

[pNouma]

Kıymetli hocalarım merhabalar,

Ekli dosyada "B" sütununda arada boşluklar içeren değerler mevcut;

Burada yapmak istediğim "D" sütunundaki gibi boşlukları ortadan çıkararak dolu hücreleri alt-alta birleştirmek;

https://dosya.co/wri3zofxckso/Kitap1.xlsx.html

Özetle aradaki boşluk ortadan kaldırarak; boşluksuz verileri alt-alta dizmek

yardımlarınız için şimdiden teşekkürler,
iyi Çalışmalar.

 

[Korhan Ayhan]

Deneyiniz.

Eski sürümler için;

=EĞERHATA(İNDİS(B:B;KÜÇÜK(EĞER(B:B<>"";SATIR(B:B));SATIR(A1)));"")

Ofis 365;

=SÜTUNA(B:B;1)

 

[pitchoute]

Merhaba,

Sub BosluklariKaldir()
    Dim son_satir As Long
    Dim hedef_satir As Long
    Dim i As Long
    
    son_satir = Cells(Rows.Count, "B").End(xlUp).Row
    hedef_satir = 1
    
    For i = 1 To son_satir
        If Cells(i, "B").Value <> "" Then
            Cells(hedef_satir, "D").Value = Cells(i, "B").Value
            hedef_satir = hedef_satir + 1
        End If
    Next i
End Sub

 

[pNouma]

Deneyiniz.

Eski sürümler için;

=EĞERHATA(İNDİS(B:B;KÜÇÜK(EĞER(B:B<>"";SATIR(B:B));SATIR(A1)));"")

Ofis 365;

=SÜTUNA(B:B;1)

Koray Hocam çok teşekkürler;
iyi ki varsınız !!

 

[pNouma]

Merhaba,

Sub BosluklariKaldir()
    Dim son_satir As Long
    Dim hedef_satir As Long
    Dim i As Long
   
    son_satir = Cells(Rows.Count, "B").End(xlUp).Row
    hedef_satir = 1
   
    For i = 1 To son_satir
        If Cells(i, "B").Value <> "" Then
            Cells(hedef_satir, "D").Value = Cells(i, "B").Value
            hedef_satir = hedef_satir + 1
        End If
    Next i
End Sub

Hocam ilgi ve alakanız için çok teşekkür ederim.