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

[yousef_000000]

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

 

االرجاء إيجاد معادله لإستخراج نص من خليه بها نص ورقم 

ارقام الشقق.rar

[أبوعيد]

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

تفضل

استخراج النص.rar

[ياسر خليل أبو البراء]

وعليكم السلام يمكن استخدام دالة معرفة بالشكل التالي 

'=NumberOut(A2)

Function NumberOut(rng As Range)
    Dim i As Integer
    
    For i = 1 To Len(rng)
        Select Case Asc(Mid(rng.Value, i, 1))
            Case 0 To 64, 123 To 197
            Case Else
                NumberOut = NumberOut & Mid(rng.Value, i, 1)
        End Select
    Next i
End Function

 

[ناصر سعيد]

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

[yousef_000000]

شكراً للسادة الأفاضل 

[ياسر العربى]

تفضل هذا الموضوع
http://yasserelaraby86.blogspot.com.eg/2016/10/split-text-number.html

تحياتي