Jak extrahovat poslední číslo z textového řetězce v aplikaci Excel?
Předpokládejme, že máte seznam textových řetězců, které se mísí s texty a čísly, nyní musíte extrahovat poslední sadu čísel, jak ukazuje následující snímek obrazovky. Jak byste mohli zvládnout tuto práci v aplikaci Excel?
Extrahujte poslední čísla z textových řetězců pomocí kódu VBA
Extrahujte poslední čísla z textových řetězců pomocí kódu VBA
Chcete-li rychle extrahovat poslední sadu čísel z textových řetězců, můžete použít následující kód VBA. Udělejte prosím toto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modul, poté zkopírujte a vložte následující kód do souboru Modul Okno.
Kód VBA: Extrahujte poslední čísla z textových řetězců:
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene, abyste vybrali rozsah dat, který chcete použít, viz screenshot:
4. A pak klikněte na tlačítko OK tlačítko a poslední sada čísel byla extrahována z každého textového řetězce do sousedních buněk sloupce, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!