Boş hüreleri silme

[maras57]

Ekte gönderdiğim örnek dosya benzeri çok büyük bir tabloda (A2:AW42300)
boş hücrelerin silinip veri bulunan hücrelerin sırasıyla sola bloklanmasını istiyorum.(sütunları dikkate almadan)Örneklerde boş satır ve sütun silme var ancak hücre olarak bulamadım.Sorunumu çözecek makro için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

Sub BoslukSil()
 
    On Error Resume Next
 
    Dim i As Long
 
    For i = 2 To 42300
        Range("A" & i, "AW" & i).SpecialCells(xlCellTypeBlanks).Delete _
                                Shift:=xlToLeft
    Next i
 
End Sub

.

 

[maras57]

Ömer bey elinize zihninize sağlık tam istediğim şey.Çok teşekkürler...