Πώς να εξαγάγετε τον τελευταίο αριθμό από συμβολοσειρά κειμένου στο Excel;

Ας υποθέσουμε ότι έχετε μια λίστα συμβολοσειρών κειμένου που αναμιγνύεται με κείμενα και αριθμούς, τώρα, πρέπει να εξαγάγετε το τελευταίο σύνολο αριθμών όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Πώς θα μπορούσατε να χειριστείτε αυτήν την εργασία στο Excel;

Εξαγάγετε τους τελευταίους αριθμούς από συμβολοσειρές κειμένου με κωδικό VBA

Εξαγάγετε τους τελευταίους αριθμούς από συμβολοσειρές κειμένου με κωδικό VBA

Για γρήγορη εξαγωγή του τελευταίου συνόλου αριθμών από συμβολοσειρές κειμένου, μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA. Κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και το τελευταίο σύνολο αριθμών έχει εξαχθεί από κάθε συμβολοσειρά κειμένου στα παρακείμενα κελιά στήλης, δείτε το στιγμιότυπο οθόνης: