Verileri sütun alt alta sıralama

[heyaa]

Merhabalar,


Elimde excel dosyasında veriler mevcut . Bunların içindeki veriler dağınık şekilde. Ben bu veriler sutünları alt alta gelecek şekilde düzenlemek istiyorum. Fakat 100.000 e yakın veri var ve elle yapması baya zaman alıyor. Örnek olarak excel dosyasını gönderiyorum.


Elimdeki excel dosyası aşağıdaki resim şeklindedir.
http://i.hizliresim.com/PklXJQ.png

Ben bu şekilde otomatik olarak düzenlemesini istiyorum. Altındaki veriler dahil olarak.
http://i.hizliresim.com/rMOPn7.png

Böyle birşey mümkünmüdür?

Örnek Dosya : http://dosya.co/k6ym5rll0mx0/örnek_veri.xlsx.html

Teşekkürler.

 

[heyaa]

Yok mudur çözüm yolu üstadlar ?

 

[excelokyanus500]

Deneyin

Sub DelCellsUp()
'David McRitchie 1998-07-17 revised 2002-01-17
'Delete Empty Cells and cells with only spaces in range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual
Dim rng As Range, ix As Long
Cells.Select
Set rng = Intersect(Selection, ActiveSheet.UsedRange)
If rng Is Nothing Then
MsgBox "nothing in Intersected range to be checked/removed"
GoTo done
End If
For ix = rng.Count To 1 Step -1 'CHR(160) is non-breaking space
If Len(Trim(Replace(rng.Item(ix).Formula, Chr(160), ""))) = 0 Then rng.Item(ix).Delete Shift:=xlToLeft
If Len(Trim(Replace(rng.Item(ix).Formula, Chr(160), ""))) = 0 Then rng.Item(ix).Delete (xlUp)
Next
done:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[heyaa]

Malesef hocam karıştırıyor satırları bu şekilde. Alta resimler ekledim.

Verilerim ;
http://i.hizliresim.com/nMl2nl.png

Bu makro ile olan ;
http://i.hizliresim.com/VaD6dr.png