Sut i dynnu'r rhif olaf o linyn testun yn Excel?
Gan dybio, mae gennych chi restr o dannau testun sy'n cymysgu â thestunau a rhifau, nawr, mae angen i chi echdynnu'r set olaf o rifau fel y dangosir y screenshot canlynol. Sut allech chi drin y swydd hon yn Excel?
Tynnwch y rhifau olaf o dannau testun gyda chod VBA
Tynnwch y rhifau olaf o dannau testun gyda chod VBA
I echdynnu'r set olaf o rifau yn gyflym o dannau testun, gallwch gymhwyso'r cod VBA canlynol. Gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, yna copïwch a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Tynnwch y rhifau olaf o dannau testun:
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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac ymddengys bod blwch prydlon i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei defnyddio, gweler y screenshot:
4. Ac yna cliciwch OK botwm, ac mae'r set olaf o rifau wedi'u tynnu o bob llinyn testun i'r celloedd colofn cyfagos, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!