الفصل بين التاريخ والنص الغير منظم

[أبو حوده]

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

محتاج افصل بين التاريخ وبين النص الغير منظم كل قطعة فى حقل بالترتيب الواضح بالمثال

علشان اقدر افصل بين ترقيات الموظفين بالشركة واطبقة فى الملف الاصلى 

New Microsoft Excel Worksheet.xlsx

[أ / محمد صالح]

يفضل أن ترسل ملفا به كمية من السطور لدراسة حالات عدم انتظام الكتابة

ومعرفة اسماء الدرجات جميعها

وما الذي يستعمل كفاصل بين كل بيان وما بعده غير الشرطة

بالتوفيق

[أبو حوده]

استاذى الفاضل @أ / محمد صالح اشكر حضرتك جدا لمرورك العطر على المشاركة 

وارفقت لحضرتك ملف به كمية من السطور تنفيذا لما اشرت به سابقا لعله يكون اوسع واشمل فى فهم الموضوع 

New Microsoft Excel Worksheet.xlsx

[أ / محمد صالح]

جرب استعمال هذا الكود 

كمحاولة لضبط المدخلات في الخلايا عن طريق الاستبدال

ثم بعدها يتم تقسيم النص إلى أعمدة عن طريق الشرطة يدويا

ويمكنك إضافة أي عدد من العناصر التي يمكن استبدالها في المصفوفتين

Sub mrmas()
OldArr = Array("مهندس", "معاون", "درجة", "سادسة", "خامسة", "رابعة", "ثالثة", "ثانية", "اولى", "كبير", "استثنائى", "كبير-ثان", "كبير -ثان", "  ", "--")
newarr = Array("-مهندس", "-معاون", "-درجة", "سادسة-", "خامسة-", "رابعة-", "ثالثة-", "ثانية-", "اولى-", "كبير-", "-استثنائى-", "كبير ثان", "كبير ثان", " ", "-")
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For i = 0 To UBound(OldArr)
Range("a" & r).Value = Trim(Replace(Range("a" & r).Value, OldArr(i), newarr(i)))
Next i
Next r
MsgBox "Done by mr-mas.com"
End Sub

وهذا الملف وبه الكود لأنه في بعض الحالات لا يعرف صاحب الاستفسار طريقة إضافة الكود ..بالتوفيق

تقسيم النص إلى معلومات.xlsb