مساعدة في حذف جزء من النص

[ازهر عبد العزيز]

السلام عليكم 

لدي حقل اجتاج طريقة للابقاء على اول كلمة فقط  من كل خلية موجودة في الحقل مثلا  book rem   تصيح في الخلية book  وهكذا بقية الخلايا 

library.xlsx

تم تعديل فبراير 14 بواسطه ازهر عبد العزيز

[abouelhassan]

جرب

Sub KeepFirstWordOnly()
    Dim cell As Range
    Dim words() As String
    Dim i As Integer
    
    For Each cell In Range("A1:A10") ' تغيير النطاق حسب الحاجة
        words = Split(cell.Value, " ")
        cell.Value = words(0)
    Next cell
End Sub

 

هذا الكود يفترض أن الكلمات مفصولة بمسافة. إذا كانت الكلمات مفصولة بفاصلة أو حرف آخر، يجب تغيير الجزء `Split(cell.Value, " ")` ليناسب الفاصلة الصحيحة، على سبيل المثال، `Split(cell.Value, ",")` للكلمات المفصولة بفاصلة.

[بلانك]

 الكود يعمل مع حدوث خطأ في نفس الوقت

[abouelhassan]

تعديل

Sub KeepFirstWordOnly()
    Dim cell As Range
    Dim words() As String
    Dim i As Integer
    
    For Each cell In Range("A1:A10") ' تغيير النطاق حسب الحاجة
        words = Split(cell.Value, " ")
        If UBound(words) >= 0 Then ' التحقق من أن المصفوفة غير فارغة
            cell.Value = words(0)
        Else
            cell.Value = ""
        End If
    Next cell
End Sub

 

[بلانك]

 تمام بارك الله فيك

[ازهر عبد العزيز]

اخي @abouelhassanجزيل الشكر

تم تعديل فبراير 14 بواسطه ازهر عبد العزيز