Hücreleri birleştirmek

[cengizhan09]

Arkadaşlar ekli tablodaki tüm satırlar iki satır birleştirilerek yapılmış. Onları hücre birleştir ile ayıtabiliyorum ancak kalna boş satırları yok etmem lazım. Tablo çok uzun bir kısmını koydum. Yardımlarınızı bekliyorum. Teşekkürler

 

[Ali]

Birleştir kısmında tekrar ayırt ettiğinizde 8 inci satırdan itibaren boşluk bırakıyor. Siz orasınız kendinize göre ayarlarsınız.

Sub boşluksil()
t = Range("A65536").End(xlUp).Row
For i = t To 8 Step -1
If Cells(i, 1) = "" Then
Cells(i, 1).EntireRow.Delete xlShiftUp
End If
Next
End Sub

 

[red_lion_72]

Selam,

Makrosuz çözüm;

Hücreleri ayırdıktan sonra çalışmanıza yeni bir sütun ekleyin. Bu sütuna 1'den sayfa sonuna kadar numara verin. Sonra tüm satırları seçerek c sütununa göre sıralayın. Boş olan hücreleri en sona atacaktır. Boş olan satırları silin. Sonra tekrar numara verdiğiniz sütuna göre sıralayın. Çalışmanız eski sırasına gelecektir. Son olarakta ilk başta ekleyip numara verdiğiniz sütunu silin.

Kolay gelsin.

 

[cengizhan09]

Ali ve red lion

İkinizede teşekkürler. Bayramınızı ve yeni yılınızı kutluyorum. İkiside işimi gördü.
Sağolun...