استخراج بيانات من خلية

[الو11111في]

السلام عليكم 

أسعد الله كل أوقاتكم بكل خير 

أحتاج مساعدتكم في استخراج بيانات من خلية 

لدي ملف اكسيل (المرفق) به أكثر من الفين سجل 

البيانات مدموجة في خلية واحدة وليست على ترتيب موحد 

احتاج فقط طريقة تظهر لي بيانات الاحداثيات X  &  Y  الموجودة في الخلية  لتكون احداثية X في عمود واحداثية Y في عمود آخر

وضعت مثال في الصف الاول يبين المطلوب 

كل الشكر والتقدير  مقدماً على عطائكم الدائم  لاحرمكم الله الثواب والأجر😊

بيانات وهمية.xls

[lionheart]

Sub Test()
    Dim r As Range, i As Long, c As Long
    Application.ScreenUpdating = False
        With CreateObject("VBScript.RegExp")
            .Global = True
            .Pattern = "\d+[.]\d+"
            For Each r In Range("C2", Range("C" & Rows.Count).End(xlUp))
                c = 4
                If .Test(r.Value) Then
                    For i = 0 To .Execute(r.Value).Count - 1
                        Cells(r.Row, c).Value = .Execute(r.Value)(i)
                        c = c + 1
                    Next i
                End If
            Next r
        End With
    Application.ScreenUpdating = True
End Sub

 

[الو11111في]

كل الشكر والتقدير 

اريد ان تظهر الاحداثيات  بجانب كل خلية  يوجد بها احداثيه 

بحيث اعرف الاحداثيه  في عمودين   والبيانات  تبقى كما هي في الخليه c 

 

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

[الو11111في]

الف شكر اخوي lionheart 

ماقصرت  الله يسعدك يارب 

اشتغل معي الكود الان بشكل صحيح  ,  والنتائج  مثل مااريد  بالضبط 

أكرر الشكر والتقدير