دمج عمودين في عمود ثالث

[haiderkh]

السلام عليكم اخوتنا واساتذتنا الكرام في منتدانا

لدي شيت اكسيل فيه عمودين وكل عمود يحتوي على مجموعة اسماء

أريد دمج العمودين في عمود ثالث كما في الصورة المرفقة

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

ارفع الملف نفسه 

لا يمكن التعامل مع صورة

على كل حال اليك هذا النموذج الذي تستطيع العمل عليه

 

 

Join_Columns.xlsx

[عبدالفتاح في بي اكسيل]

بعد اذنك استاد سليم  هذا ايضا  قد يساعده  بالكود  ويمكن التحكم بالمدى على حسب بياناته 

 

merge data1‬.xls

[haiderkh]

احسنت استاذ سليم حاصبيا

نعم هذا هو المطلوب بارك الله بك

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

كود رائع  لكن من الافضل تقصير الحلقات التكرارية (لا داعي لتشغيلها حتى الصف رقم 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

 

[علي بطيخ سالم]

ما شاء الله احسنت استاذ سليم بارك الله لك على مجهودك الطيب فأنت من الثمار الطيبة لهذا المنتدى العظيم

[عبدالفتاح في بي اكسيل]

احسنت استاد  سليم