Cum se extrage ultimul număr din șirul de text în Excel?
Presupunând că aveți o listă de șiruri de text care s-au amestecat cu texte și numere, acum trebuie să extrageți ultimul set de numere, după cum se arată în următoarea captură de ecran. Cum ați putea rezolva această sarcină în Excel?
Extrageți ultimele numere din șiruri de text cu cod VBA
Extrageți ultimele numere din șiruri de text cu cod VBA
Pentru a extrage rapid ultimul set de numere din șiruri de text, puteți aplica următorul cod VBA. Vă rugăm să faceți acest lucru:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Module, apoi copiați și lipiți următorul cod în Module Fereastră.
Cod VBA: extrageți ultimele numere din șiruri de text:
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. Apoi apăsați F5 pentru a rula acest cod și apare o casetă de solicitare pentru a vă reaminti să selectați intervalul de date pe care doriți să îl utilizați, consultați captura de ecran:
4. Apoi faceți clic pe OK și ultimul set de numere au fost extrase din fiecare șir de text în celulele coloanei adiacente, consultați captura de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!