Satır Birleştirme (Concatenate) Yardım

[bsen]

Merhaba,
Alt alta 1000 satırlık bir datam var. Bunların tek hücrede sadece aralarına virgül konarak birleşmesi lazım. Bunu tek tek Concatenate formülü ile yapmak mümkün belki ama çokça vakit alıyor. Bunu formül ya da makro ile yapma şansı var mıdır?
Teşekkür ederim

 

[Muzaffer Ali]

Aşağıdaki kodları inceleyin.

Sub Birlestir()
    Dim Sutün As String
    Dim Satir As Long
    Dim Bak As Long
    Dim HedefHucre As String
    
    Sutün = "A"
    Satir = 1000
    HedefHucre = "B1"
    For Bak = 1 To Satir
        Range(HedefHucre).Value = Range(HedefHucre).Value & Cells(Bak, Sutün).Value & ","
    Next
End Sub

 

[bsen]

Büyük sevap kazandınız. Teşekkür ediyorum

Aşağıdaki kodları inceleyin.

Sub Birlestir()
    Dim Sutün As String
    Dim Satir As Long
    Dim Bak As Long
    Dim HedefHucre As String
    
    Sutün = "A"
    Satir = 1000
    HedefHucre = "B1"
    For Bak = 1 To Satir
        Range(HedefHucre).Value = Range(HedefHucre).Value & Cells(Bak, Sutün).Value & ","
    Next
End Sub