Tablo sütunlarında birleştirme

[mehmetmet]

İyi günler;

Konuyu hangi başlık altında açılması gerektiğini bilemediğim için bu başlık altında açtım. Eğer hatalı ise kusura bakmayın.

Ekte örneği yer alan tabloda alt kırılımlar yeni bir sütunda yazılmış. Bunları ilk sütunda yazma imkanımız olur mu?
Örnek olarak;

OLMASI GEREKEN MEVCUT TABLO
1. 1.
1.1. 1.1.
1.1.1. 1.1.1.
1.1.2.
1.1.2.

 

[veyselemre]

Sub Makro1()
    Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
    Range("A:A").Delete Shift:=xlToLeft
End Sub

 

[mehmetmet]

hocam ben bu şekilde yapamadım. makroyu çalıştırdığımda tüm hücrelerimi siliyor. ayrıca formül ile çözülebilmesi mümkün müdür?

 

[veyselemre]

Kod vermiş olduğunuz örnek için geçerlidir.
A sütununda veri toplandıktan sonra silinmemesi için, aşağıdaki gibi kullanın.

Sub Makro1()     
Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft 
End Sub

 

[mehmetmet]

Teşekkürler. Elinize sağlık hocam...