سؤال صعب جدا فى الاكسيل

[ابو حبيبة وحنين]

بسم الله الرحمن الرحيم

 

السؤال بسيط جدا :  عندى عمود فيه اكثر من 6000 خلية بها بيانات عبارة عن اسماء بعض الخليا تحتوى على اسم واحد والاكثر منها بها اكثر من اسم 

 

المشكلة : الاسماء المكتوبة فى الخلية متصلة ببعضها ولا يوجد مسافة ولا اشارة لكى استطيع عمل فصل بينهما بــاستخدام text to columns

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

test 1.rar

تم تعديل أبريل 20, 2013 بواسطه hulkamir

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا 

 

**ارجو ان تشاهد هذا خاص بقواعد المشاركة .

http://www.officena.net/Tips/Questions.htm

 

تحياتي

test 1+.rar

تم تعديل أبريل 20, 2013 بواسطه احمد عبد الناصر

[ابو حبيبة وحنين]

متشكر جدا    ممكن تشرح لى  عملتها ازاى  بمجرد الضغط على الزرار ؟   وهل استخدمت كود برمجة ؟

 

وجزاكم الله خيرا 

[احمد عبد الناصر]

السلام عليكم

 

هو كود بالفعل اضغط alt+F11  لتفتح نافذة الفجوال ثم افتح module1 من يسار الشاشة ستجد هذا الكود

Sub dahmour()

i = 2

Do Until IsEmpty(Cells(i, 2))
x = 2
Do Until IsEmpty(Cells(x, 3))
If InStr(1, Cells(i, 2), Trim(Cells(x, 3))) > 1 Then
Cells(i, 2) = Replace(Cells(i, 2), Trim(Cells(x, 3)), " & " & Trim(Cells(x, 3)))
End If
x = x + 1
Loop
i = i + 1
Loop

End Sub

تحياتي و ارجو ان يفي بالغرض

[ابو حبيبة وحنين]

ممتاز جدا  :   ممكن تدلنى على طريقة لتعلم لغة الاكواد ويستحسن لو يكون فيديوهات

 

جزاكم الله خيرا