birleştirme (adet çok)

[mustafa7691]

Merhaba Sn Dostlar,
bir sutunda mevcut 100.000 hatta daha fazla tc numarasını araya virgül koyarak birleştirmenin bir yolu varmıdır ?

yardımcı olabilirseniz çok makbule geçecek.

saygılarımla

 

[kan-nas]

Sutundakileri araya virgül koyarak yanyana yazdırmaksa isteğiniz.Ek'e bakınız.

 

[mustafa7691]

Evet teşekkür ederim.doğru tesbit ve çözüm emeğinize sağlık

 

[nsertoglu]

makro ile yapmak isterseniz :

Sub 1ncikolonu_yandan2ncikolonda_1lestirme()
Cells(1, 1).Select
sonRow = Selection.End(xlDown).Row
For r = 1 To sonRow
If r = 1 Then
Cells(r, 3) = Cells(r, 1).Value
Else
Cells(r, 3) = Cells(r - 1, 3).Value & ";" & Cells(r, 1).Value
End If
Next r
End Sub