Tüm Hücrelerdeki Veriyi Tek Hücreye Aktarmak

[bolobolo]

Merhaba,

& işaretini kullanmadan aşağıda örneğini verdiğim tabloyu nasıl oluşturabilirim? Bilen arkadaşların yardımını rica ederim. Ben mesela =A2&A3&A4&A5&A6&A7&A8&A9&A10&A11&A12&A13 yaparak yaptım ama 2000 satırdan fazla bir veri var ve oradaki bilgiyi tek satırda toplamak gerekiyor. Hepsine & girmeden yapmanın yolu var mı?

Teşekkürler.

Data	Sonuç
e	excelwebtr
x
c
e
l
w
e
b
t
r

 

[Ömer]

Merhaba,

Deneyiniz.

Sub test()
    Dim i As Long, d As String
    Range("B2") = ""
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            d = d & Cells(i, "A")
        End If
    Next i
    Range("B2") = d
End Sub

 

[bolobolo]

Çok teşekkürler desteğiniz için, çalıştı istediğim şekilde.

 

[hayri13]

makrosuz olarak yapmak için, "=aralıkbirleştir(A2:A11)" formülü kullanabilirsiniz.