makro ile concatenate (birleştir)

[ali8686]

Selam arkadaşlar,

ERP programından çektiğim binlerce satırlık bir veri dosyasının B sütunundaki veriler, erp programındaki "hücre karakter sayısı kısıtı" nedeniyle alt satırlara bölünmüş şekilde çıkıyor. Benim istediğim bir döngü ile bunları birleştirmek. Ancak işin içinden çıkamadım. Örnek dosya ekliyorum. İstediğim sonuç yeşil bölgedeki gibi. Yardımcı olabileceklere şimdiden çok teşekkürler.

 

[hamitcan]

Böyle deneyin.

Sub Birlestir()
    x = 2
    Cells([b65536].End(3).Row + 1, 1) = "son"
    For i = 3 To [b65536].End(3).Row + 1
        If Cells(i - 1, 2) <> "" Then a = a & " " & Cells(i - 1, 2)
        If Cells(i, 1) <> "" Then Cells(x, 4) = a: x = i: a = ""
    Next
End Sub

 

[ali8686]

Çok zekice Hamit bey elinize sağlık çok teşekkürler.