Excel'de metin dizisinden son sayıyı nasıl çıkarabilirsiniz?

Diyelim ki, metinler ve sayılar içeren bir metin dizisi listesi var ve şimdi aşağıdaki ekran görüntüsünde gösterildiği gibi son sayı grubunu çıkarmak istiyorsunuz. Bu işlemi Excel'de nasıl gerçekleştirebilirsiniz?

Metin dizilerinden son sayıları VBA kodu ile çıkarma

Metin dizilerinden son sayıları VBA kodu ile çıkarma

Metin dizilerinden son sayı grubunu hızlıca çıkarmak için aşağıdaki VBA kodunu uygulayabilirsiniz. Lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın, ardından aşağıdaki kodu Modül Penceresine kopyalayıp yapıştırın.

VBA kodu: Metin dizilerinden son sayıları çıkarma:

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve seçmek istediğiniz veri aralığını hatırlatmak için bir uyarı kutusu belirecektir, aşağıdaki ekran görüntüsüne bakın:

4. Tamam butonuna tıklayın ve her bir metin dizisinden son sayı grubu bitişik sütun hücrelerine çıkarılmış olacaktır, aşağıdaki ekran görüntüsüne bakın: