Jak wyodrębnić ostatnią liczbę z ciągu tekstowego w programie Excel?
Przypuśćmy, że masz listę ciągów tekstowych, które są zmieszane z tekstami i liczbami, teraz musisz wyodrębnić ostatni zestaw liczb, jak pokazano na poniższym zrzucie ekranu. Jak mógłbyś poradzić sobie z tą pracą w Excelu?
Wyodrębnij ostatnie liczby z ciągów tekstowych za pomocą kodu VBA
Wyodrębnij ostatnie liczby z ciągów tekstowych za pomocą kodu VBA
Aby szybko wyodrębnić ostatni zestaw liczb z ciągów tekstowych, możesz zastosować następujący kod VBA. Zrób tak:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Moduł, a następnie skopiuj i wklej następujący kod w pliku Moduł Okno.
Kod VBA: Wyodrębnij ostatnie liczby z ciągów tekstowych:
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okno zachęty przypominające o wybraniu zakresu danych, którego chcesz użyć, patrz zrzut ekranu:
4. A następnie kliknij OK przycisk, a ostatni zestaw liczb został wyodrębniony z każdego ciągu tekstowego do sąsiednich komórek kolumn, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!