اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

لدي جدول اكسل به عمود يحوي مجموع من الأسماء أريد نقل هذه الأسماء كافة في خلية واحدة مثلا 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

  • Like 5

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information