Alt alta sıralı verileri tek satır yapıp araya virgül koymak istiyorum

[Thex]

Merhaba,
Barkod ile verileri word dosyasına okutuyoruz. Bunu excelte tek hücreye koymak istiyoruz. Fakat alt alta sıralı olduğu için 100lerce veriyi sona virgül koyup tek satır yapmak çok zor. Bunun için uygun bir yöntem var mıdır?

İlk hali;
A11111
B11111
C11111
......

Benim istediğim;
A11111,B11111,C11111

 

[leonadies]

Yapma istediğiniz hücreye tıklayıp ;

=BİRLEŞTİR(A1&","&A2&","&A3&","&A4&","&A5)

şeklinde olabilir.
Makro ile belki daha pratiği olabilir.

 

[bzace]

Merhaba,
KTF ile örnek.

Function virgül_koy(Arr, Optional a As String = " ") As String
Dim i As integer, j
For Each j In Arr
 If j <> "" Then
  virgül_koy = virgül_koy & IIf(i, a, "") & j
  i = i + 1
 End If
Next
End Function

Kullanılışı : virgül_koy(A1:A5;",")
Formül içerisindeki kırmızı alanı silerseniz otomatik boşluk bırakır.

Saygılar,
Şeşen