حذف اسم من العمود

[ابو مشاري]

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

لو كان لدي ملف يحتوي على عمودين كمثال

الاسم ، الايميل

ارسلت فورم عبر جوجل لكتابة الاسم الرباعي والايميل

احد منهم ارسل الاسم خماسي واحتاج حذف الاسم الرابع فقط عشان تصميم الشهادة

سؤالي في الاسم ( رمزي باسل كريم محمد الخالد ) كمثال اسم خماسي وأنا أحتاج الاسم الرباعي أو اقل 

ارغب بحذف الاسم الرابع محمد وهكذا للبقية لو كان هاك اسم خماسي اخر .

وضحت الفكرة

test.xls

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

  جرب  هذا      الكود 

Sub RemoveFourthName()
  Dim R As Long, Temp As Variant, Arr As Variant
  Arr = Range("B2", Cells(Rows.Count, "B").End(xlUp))
  For R = 1 To UBound(Arr)
    Temp = Split(Arr(R, 1), , 4)
    If InStr(Temp(3), " ") Then Temp(3) = Mid(Temp(3), InStr(Temp(3), " ") + 1)
    Arr(R, 1) = Join(Temp)
  Next
  Range("B2").Resize(UBound(Arr)) = Arr
End Sub

 

 

[ابو مشاري]

جاري التجربة يعطيك العافية