haiderkh قام بنشر فبراير 19, 2020 مشاركة قام بنشر فبراير 19, 2020 السلام عليكم اخوتنا واساتذتنا الكرام في منتدانا لدي شيت اكسيل فيه عمودين وكل عمود يحتوي على مجموعة اسماء أريد دمج العمودين في عمود ثالث كما في الصورة المرفقة رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر فبراير 19, 2020 أفضل إجابة مشاركة قام بنشر فبراير 19, 2020 ارفع الملف نفسه لا يمكن التعامل مع صورة على كل حال اليك هذا النموذج الذي تستطيع العمل عليه Join_Columns.xlsx 2 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر فبراير 19, 2020 مشاركة قام بنشر فبراير 19, 2020 بعد اذنك استاد سليم هذا ايضا قد يساعده بالكود ويمكن التحكم بالمدى على حسب بياناته merge data1.xls 1 رابط هذا التعليق شارك More sharing options...
haiderkh قام بنشر فبراير 19, 2020 الكاتب مشاركة قام بنشر فبراير 19, 2020 احسنت استاذ سليم حاصبيا نعم هذا هو المطلوب بارك الله بك 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 19, 2020 مشاركة قام بنشر فبراير 19, 2020 كود رائع لكن من الافضل تقصير الحلقات التكرارية (لا داعي لتشغيلها حتى الصف رقم 1000 منها 995 صف فارغ) ما ادرانا عدد الصفوف ربما اكثر من 1000 أو اقل لماذا لا نجعل اكسل وحده يحدد عدد الصفوف (10 15 .... 100 ... 1000 الخ.) اقترح هذا الكود Sub rangeToColumn() Dim i%, m% i = 2: m = 2 Range("c2").Resize((Range("a2").CurrentRegion.Rows.Count) * 3) _ .ClearContents Do Until Range("a" & i) = vbNullString With Cells(m, 3) .Value = Range("A" & i) .Offset(1) = Range("B" & i) End With m = m + 2 i = i + 1 Loop End Sub 1 2 رابط هذا التعليق شارك More sharing options...
علي بطيخ سالم قام بنشر فبراير 19, 2020 مشاركة قام بنشر فبراير 19, 2020 ما شاء الله احسنت استاذ سليم بارك الله لك على مجهودك الطيب فأنت من الثمار الطيبة لهذا المنتدى العظيم 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر فبراير 19, 2020 مشاركة قام بنشر فبراير 19, 2020 احسنت استاد سليم 1 رابط هذا التعليق شارك 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.