bir sütundaki verilerin önüne ve arkasına tek tırnak ekleyip virgül ile tek bir hücrede birleştirme

[ssert75]

Merhaba arkadaşlar. Veri tabanı sorgulamalarımda kullanabilmek için Excel' de bir sütundaki verilerin önüne ve arkasına tek tırnak ekleyip, virgül ile tek bir hücrede birleştirmem gerekiyor. Forumda benzer örnekler buldum ama verilere karakter ekleyip tek bir hücrede virgül ile birleştirme örneği bulamadım. İşlem yapmak istediğim sütun bazen binlerce veriden oluşabiliyor. Makrolu çözüm arıyorum. Desteklerinizi bekliyorum. Teşekkürler.

 

[Muzaffer Ali]

Merhaba.
C2 hücresine aşağıdaki formülü kopyapayın.
Diğer hücrelere de aşağıya doğru çoğaltın.
En alt satırda elde edilen değer sizin istediğiniz değer olacaktır.

=B2&"','"&C1

 

[ssert75]

Formülü denedim. Çok teşekkürler.

 

[Ömer BARAN]

Merhaba.
Bu da makrolu çözüm önerisi olsun. Sonuç, örnek belgedeki gibi D2 hücresine yazılır.
Sonucu başka bir hücreye yazdırmak istiyorsanız kod'un son satırındaki hücre adresini değiştirmeniz yeterli olur.

Sub BIRLESTIR()
For sat = 2 To Cells(Rows.Count, "B").End(3).Row
    metin = metin & ",'" & Cells(sat, "B") & "'"
Next
[D2] = Mid(metin, 2, Len(metin) - 1)
End Sub

 

[ssert75]

Makro ile daha kolay oldu. Sağolun Ömer bey.