تقسّم الأرقام والنصوص إلى أعمدة منفصلة في الإكسيل

تقسّم الأرقام والنصوص إلى أعمدة منفصلة

في الحالة التي تريد فيها فصل النص والأرقام إلى عمودين ، سيكون من الجيد إنجاز المهمة باستخدام صيغة واحدة ،، نقوم فقط بدمج كود وظيفتي ، 

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

Function SplitTextNumbers(str As String, is_remove_text As Boolean) As String

    With CreateObject("VBScript.RegExp")

        .Global = True

        If True = is_remove_text Then

            .Pattern = "[^0-9]"

        Else

            .Pattern = "[0-9]"

        End If

        SplitTextNumbers = .Replace(str, "")

    End With

End Function

بعد وضع الكود نستخدم الصيغتين 

➖ لفصل الاسم عن الرقم نستخدم الصيغه التاليه 

SplitTextNumbers(C15; TRUE)=

علما C2 هي مكان تواجد البيانات 

لفصل الرقم عن الاسم نستخدم الصيغه التاليه 

SplitTextNumbers(C14; FALSE)=

تعديل المقال