كيف نستطيع حصر الأسماء من عمود واحد في خلية واحدة ونضع بين كل منها فاصلة

[حامل المسك]

السلام عليكم ورحمة الله وبركاته ..

وفقكم الله ورعاكم وحفظكم من كل مكروه وأزال البلاء عنا وعن المسلمين..

أساتذتي الكرام ..

لدي جدول اكسل به عمود يحوي مجموع من الأسماء أريد نقل هذه الأسماء كافة في خلية واحدة مثلا b1 ويفصل بين كل اسم بفاصلة على النحو الآتي

محمد ، خالد ، سعيد .. إلخ

مرفق مثال رعاكم الله..

حصر الأسماء في خانة وحدة.xlsx

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit

Sub ALL_in_one_cells()
 Dim ro, st$, i%
 ro = Cells(Rows.Count, 1).End(3).Row
 For i = 1 To ro
  If Cells(i, 1) <> vbNullString Then
   st = st & Cells(i, 1) & ","
   End If
   Next
 st = Mid(st, 1, Len(st) - 1) & "."
 Cells(3, 4) = st
 Cells(3, 4).Columns.AutoFit
End Sub

الملف مرفق

One_for_All.xlsm

[حامل المسك]

رائع وممتاز .. سلمك الله ورعاك ووقفك لكل خير

[أحمد يوسف]

حامل المسك

أين الضغط على الإعجاب لهذا الكود الممتاز ,بارك الله فيك استاذ سليم ؟!!💙