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

[عبد الكبير نواري]

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

لدي ملف اكسيل فيه ايات كريمة واعمل عليها -الملف مرفق-

المطلوب: استخراج الكلمة التي تتضمن حرف ملون بالأحمر وحدها من الآية ووضعها في الخانة المقابلة لها
شكرا

Classeur6.xlsx

[محمد هشام.]

تفضل اخي الكريم ووفقنا الله واياكم لما يحب ويرضى

والكود المستخدم 

Sub Red_Letter()
    Dim a As Long, b As Long, c As Long, r As Range
    
    For Each r In Range("D2", Cells(Rows.Count, "D").End(xlUp))
        For b = 1 To Len(r)
            If r.Characters(b, 1).Font.Color = vbRed Then
                a = InStrRev(r, " ", b) + 1
                c = InStr(b + 1, r, " ")
                    If c = 0 Then c = Len(r) + 1
                r.Offset(, 1).Value = Mid(r, a, c - a)
                r.Offset(, 1).Replace ",", ""
            End If
        Next b
    Next r
End Sub

لم يتم اضافة الكود  لكي لا يتم تغيير امتداد الملف لديك  ولو حبيت تشتغل بيه مرة اخرى متنساش تفك دمج الخانات اولا ......وده ملف  اخر به مثال للاستفادة يتضمن  الكود

استخراج الكلمة من النص.xlsx مثال _استخراج الكلمة من النص.xlsm

[عبد الكبير نواري]

حفظكم الله و رعاكم وزادكم من العلم ما يدخلكم جنة الفردوس الأعلى.

احسن الله اليكم سيدي الفاضل والله ربحت من حضرتك وقتا وفيرا جعل كل ما اقوم به لخدمة كتابه زادا لكم يوم الميعاد وبكل حرف حسنة.

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

[محمد هشام.]

 

جزاكم الله خيرا وبارك ربي في أوقاتكم وعلمكم ونفع بكم وجعل جهودكم خالصة لوجهه عز وجل وأسال الله لنا ولكم التوفيق والسداد