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

ارجو المساعدة فى فصل كل رقم فى خلية


إذهب إلى أفضل إجابة Solved by احمد عبد الناصر,

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

اخى الكريم يحيى حسين السلام عليكم ورحمة الله وبركاتة

اشكرك على الرد السريع للمشاركة ولقد قمت باستخدام الـ TextToColumns من القائمة البيانات ولكنها لم تفي بالغرض

فهل من بديل

وشكرا ..... :gift2:
 

رابط هذا التعليق
شارك

اخى الكريم

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

اشكرك  على التوضيح بكيفية استخدام الـ text to columns حيث اننى قد استخدمتها من قبل مثلما تفضل الاخ الفاضل يحيى حسين ولكنى لم اكن اضع الـ / بعد اختيار الـ other ، لذا فقد تم ما هو مراد

وجزاكم الله تعالي كل الخير انتم وجميع المشاركين فى المنتدى .......

رابط هذا التعليق
شارك

ولاثراء الموضوع

هذا كود يقوم بعمل المطلوب

Sub ragab()
LR = [D10000].End(xlUp).Row
For i = 5 To LR
r = Split(Cells(i, 4), "/")
T = 6
For ii = UBound(r) To LBound(r) Step -1
Cells(i, T) = r(ii)
T = T + 1
Next

Next
End Sub

 

book2.rar

  • Like 2
رابط هذا التعليق
شارك

السلام عليكم

الاستاذ القدير / رجب جاويش

 

كل يوم يمر علينا نتعلم المزيد والمزيد منك

وبالفعل كود احترافي

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

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information