حامل المسك قام بنشر مارس 24, 2020 مشاركة قام بنشر مارس 24, 2020 السلام عليكم ورحمة الله وبركاته .. وفقكم الله ورعاكم وحفظكم من كل مكروه وأزال البلاء عنا وعن المسلمين.. أساتذتي الكرام .. لدي جدول اكسل به عمود يحوي مجموع من الأسماء أريد نقل هذه الأسماء كافة في خلية واحدة مثلا b1 ويفصل بين كل اسم بفاصلة على النحو الآتي محمد ، خالد ، سعيد .. إلخ مرفق مثال رعاكم الله.. حصر الأسماء في خانة وحدة.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مارس 24, 2020 أفضل إجابة مشاركة قام بنشر مارس 24, 2020 جرب هذا الماكرو 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 5 رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر مارس 24, 2020 الكاتب مشاركة قام بنشر مارس 24, 2020 رائع وممتاز .. سلمك الله ورعاك ووقفك لكل خير 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر مارس 24, 2020 مشاركة قام بنشر مارس 24, 2020 حامل المسك أين الضغط على الإعجاب لهذا الكود الممتاز ,بارك الله فيك استاذ سليم ؟!!💙 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.