فصل كل اسم فى خلية

[محب لله ورسوله]

السلام عليكم

برجاء المساعده فى الملف المرفق

حيث انه المطلوب فصل كل اسم عن الآخر ووضع كل اسم فى خليه حيث رأسى

New Microsoft Excel Worksheet (2).xlsx

او ياريت حد يفيدنا فى طريقة مجربة لتحويل ملف pdf  عربى لاكسيل او ورد

ولكم جزيل الشكر

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

جرب هذا الكود وترى النتيجة في Sheet2

Option Explicit
Sub Split_names()
Dim rg As Range
Dim i%, Str
Sheets("sheet2").Range("B2").CurrentRegion.Clear
Set rg = Sheets("sheet1").Range("B2").CurrentRegion
  
  For i = 1 To rg.Cells.Count
    Str = rg.Columns(1).Cells(i)
    Str = Split(Str, "|")
    Sheets("sheet2").Cells(i + 1, 2) _
       .Resize(, UBound(Str) + 1) = Str
  Next
  
  Sheets("sheet2").Range("B2"). _
  CurrentRegion.Columns.AutoFit
End Sub

الملف مرفق

Split_names.xlsm

[abouelhassan]

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

لان هذه الاكواد كنوز

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

احترام وتقدير من اخيك

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

تسلم اخي أبو الحسن و شكراً لك على هذا العمل

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

حتى يستفيد منها الأخرون

[abouelhassan]

حاضر استاذى سأقوم برفع كل الاكواد 

بارك الله فيك

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

بارك الله بك

الرحاء ان تضع في بداية كل كود ما هي مهمته و بذلك تسهل عملية البحث عن كود معين

[abouelhassan]

انا هارسل لحضرتك رابط به كل الملفات التى قمت بتحميلها 

وهى كلها لحضرتك

لو حضرتك حابب انى اجمع الاكواد فى محفظة اكواد تحت امرك

بس انا كاتب على كل ملف وظيفة الكود

عموما هبعت لحضرتك الرابط واى شئ تأمرنى به سافعله

اخيك باحترام