hücre birleştirme

[alfa&omega]

a sutununda alt alta 200 satırlık verileri tel bır hucrede aralarında noktalı virgül gelicek şekilde nasıl yapabilirim......

 

[Necdet]

Merhaba,

=A1&";"&A2&";"&A3......... olmalı da 200 satırda çalışır mı bilemiyorum, denemek gerek


Makrolu örnek ekte

Public Sub Birlestir()
Dim dizi As String
    dizi = [A2]
For i = 3 To [A65536].End(3).Row
    dizi = dizi & ";" & Cells(i, "A")
Next i
[B1] = dizi
End Sub

 

[Recep İpek]

Makro bilginiz var ise aşağıdaki kodları kullanabilirsiniz.

Sub Birlestir()
[d2].ClearContents
For i = 2 To [a65536].End(3).Row
veri = veri & Cells(i, "a").Value & ";"
Next i
[d2] = veri
End Sub

 

[veyselemre]

Makroyla deneyin, ama hedef hücrenin alacağı sınırı aşarsa hata verebilir. Başka bir yere kopyalama yapacaksanız, direkt olarak clipboarda atabilirsiniz.