Verileri bir hücreye alma

[nsndepo]

Merhaba arkadaşlar,
bir sütündaki verileri herhangi bir yerdeki bir hücreye yan yana aralarında virgül olarak nasıl yazabilirim.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

Sub Birlestir()
Dim i As Long
Range("B1").ClearContents
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    Range("B1") = Range("B1") & "," & Cells(i, "A")
Next i
End Sub

.