كيفية استخراج الرقم الأخير من سلسلة النصوص في Excel؟

لنفترض أن لديك قائمة من السلاسل النصية التي تختلط فيها النصوص والأرقام، والآن تحتاج إلى استخراج المجموعة الأخيرة من الأرقام كما هو موضح في لقطة الشاشة التالية. كيف يمكنك التعامل مع هذه المهمة في Excel؟

استخراج الأرقام الأخيرة من السلاسل النصية باستخدام كود VBA

استخراج الأرقام الأخيرة من السلاسل النصية باستخدام كود VBA

للاستخراج السريع للمجموعة الأخيرة من الأرقام من السلاسل النصية، يمكنك تطبيق كود VBA التالي. يرجى القيام بما يلي:

1. اضغط باستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، ثم قم بنسخ ولصق الكود التالي في نافذة الوحدة.

كود VBA: استخراج الأرقام الأخيرة من السلاسل النصية:

Sub GetLastDigits()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xRegEx As Object
    Dim xRetList As Object
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the range:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
       MsgBox "Only one column can be available", vbInformation, "Kutools for Excel"
       Exit Sub
    End If
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .MultiLine = False
        .Global = True
        .IgnoreCase = True
        .Pattern = "(\d+)"
    End With
    For Each xCell In xRg
        Set xRetList = xRegEx.Execute(xCell.Value)
        If xRetList.Count > 0 Then
            If Left(xRetList(xRetList.Count - 1), 1) = 0 Then
                xCell.Offset(0, 1) = Right(xRetList(xRetList.Count - 1), Len(xRetList(xRetList.Count - 1)) - 1)
            Else
                xCell.Offset(0, 1) = xRetList(xRetList.Count - 1)
            End If
        End If
    Next
End Sub

3. بعد ذلك اضغط على مفتاح F5 لتشغيل هذا الكود، ستظهر مربع تنبيه لتذكيرك بتحديد نطاق البيانات الذي تريد استخدامه، انظر إلى لقطة الشاشة:

4. وبعد ذلك انقر على زر موافق، وسيتم استخراج المجموعة الأخيرة من الأرقام من كل سلاسل النصوص إلى خلايا العمود المجاور، انظر إلى لقطة الشاشة: