excel 100 satırdaki sayıları birleştirme

Kodla Büyü

DotCom

Hiperaktif Üye
Hiperaktif
Mesajlar
2,905
merhaba,

excelde a2, den a200 e kadar olan hücrelerde sayılar var bu rakamları aralarına virgül (,) koyarak metin olarak birleştirme istiyorum. nasıl yapabilirim

1
5
7
9
10
..
..
..
20

1,5,7,9,10,20 haline getirmek istiyorum
 
Her sayının altındaki hücreye, , işareti koy
Sonra bi alttaki hücreye
Örn
=birleştir(a1;a2)
Yaz ve bu hücreyi sağa doğru kaydır tüm sayıların yanına virgül gelsin
Sonra bu hücreleri birleştir
=birleştir(a3:a200) bi dene
 
Her sayının altındaki hücreye, , işareti koy
Sonra bi alttaki hücreye
Örn
=birleştir(a1;a2)
Yaz ve bu hücreyi sağa doğru kaydır tüm sayıların yanına virgül gelsin
Sonra bu hücreleri birleştir
=birleştir(a3:a200) bi dene
öneri için teşekkürler ama çok uzun bir liste için uğraştırıcı görünüyor.

daha pratik bir yöntem arıyorum.
 
hocam ilkbaşta yan taraftaki hücreye sayıların hepsini metne çevireceksin(metneçevir fonksiyonu ile), sonrasında yine yan hücreye bir tane "," koyacaksın, sonrasında ise sırasıyla birleştir komutuyla birleştireceksin.
 
b2 hücresine =a2 yaz, b3 hücresine =BİRLEŞTİR(B2;",";A3) yazıp, sürükle zaten metin olacaktır, formülden kurtulmak istiyorsan son hücreyi kopyala, değerleri yapıştır de.
 
Kodu deneyiniz.

Sub Birleştir()
son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
a = a & Cells(i, 1) & ", "
Next
Cells(2, 2) = a
End Sub
 
Geri
Üst