aşağıdaki kodu denermisiniz.
Kod:
Sub Birlestir()
Dim i As Integer
Dim d As String
For i = 2 To [C65536].End(3).Row
If Len(d) = 0 Then
d = Cells(i, "C")
Else
d = d & ";" & Cells(i, "C")
End If
Next i
[D1] = d
End Sub