Satırlardaki bilgileri araya virgül koyarak birleştirme

[bono]

Arkadaşlar A kolonunda yer alan 65.500 satırdaki bilgileri tek bir hücrede araya virgül koyarak nasıl birleştirebilirim.

Şimdiden yardımlarınız için teşekkürler

 

[Mahmut Kök]

aşağıdaki gibi deneyebilirsiniz

for a=1 to [a65536].end(3).row
range("b1")=range("b1") & "," & cells(a,"a")
next

 

[Ferhat Pazarçevirdi]

Eğer bahsettiğiniz gibi, 65.500 satır veriniz varsa, bunu bir değer olarak, değişkende saklayabilirsiniz ama bir hücreye yazdıramazsınız.

Çünkü, bir hücreni taşıyabileceği maksimum karakter sayısı 32.000 dir -ki biz bunun sadece sayfada 1000 kusürunu görebiliriz-

Onun için, hangi kodu yazarsak yazalım, oluşacak stringdeki sadece virgül sayısı 65.500 olacaktır ki, böyle bir string için tek bir hücre yeterli değildir.

 

[Mahmut Kök]

Sayın fpc haklı tabi ki, ancak belki aşağıdaki gibi bir kod ile, birleştirdiğiniz verileri bir txt dosyasına yazdırabilirsiniz.

Sub txtyaz()
For a = 1 To [a65536].End(3).Row
verim = verim &  Cells(a, "a") & ","
Next
 
Open "c:\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".txt" For Output As #1
Print #1, verim
Close #1
End Sub

 

[bono]

Arkadaşlar gerçekten çok teşekkür ederim. Mesleki özellikle yapmak istediğim şeyi son mesajında yazmışsın. Benim bu satırları bir araya getirme nedenim text dosyasına taşımak istediğimdendi

Tekrar teşekkür ediyorum