Alt alta satılardaki veriyi tek satıra yazdırmak

[eurynamos]

maada20<<ENTER>>
mabat20<<ENTER>>
mabet20<<ENTER>>
mabut20<<ENTER>>
macar20<<ENTER>>
macun20<<ENTER>>
maçka20<<ENTER>>
madam20<<ENTER>>
madde20<<ENTER>>
maddi20<<ENTER>>
madem20<<ENTER>>
maden20<<ENTER>>
maden20<<ENTER>>
mader20<<ENTER>>
madik20<<ENTER>>
madun20<<ENTER>>
mafiş20<<ENTER>>


YUukarıdaki gibi bir sütunda sıralanmış değerleri aralarında hiç boşluk bırakmadan
mabat20<<ENTER>>mabet20<<ENTER>>mabut20<<ENTER>> şeklinde
hangi formülle bir araya getirebilirim.
Not : hücre sayısı çok fazla olduğu için birleştir formulü ile tek tek seçerek yapmam saatler alacağından tek seferde gerçekleştirecek bir formul arıyorum.
Yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Makro kullanmanız gerekir.
A sütunundaki verileri B1 hücresine istediğiniz gibi aktarır.

Yalnız enterdan kastınızı alt enter olarak anladım, eğer farklı birşeyse kodlardaki,

ayirca = Chr(10) tanımındaki chr(10) yerine istediğiniz ayıraçı yazarsınız.

Sub Birlestir()
 
    Dim i As Long, ayirac As String
 
    Range("B1").ClearContents
 
    ayirac = [COLOR=red]Chr(10)[/COLOR]
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Range("B1") = Range("B1") & ayirac & Cells(i, "A")
    Next i
 
    Range("B1") = WorksheetFunction.Substitute(Range("B1"), ayirac, "", 1)
 
End Sub

.

 

[snappertr]

Teşekkürler çok işime yaradı. Saolasın