Conas an uimhir dheireanach a bhaint as sreangán téacs in Excel?
Ag ceapadh, tá liosta de shreangáin téacs agat a bhí measctha le téacsanna agus uimhreacha, anois, ní mór duit an tsraith dheireanach uimhreacha a bhaint mar a leanas an pictiúr a thaispeántar. Conas a d’fhéadfá an post seo a láimhseáil in Excel?
Sliocht na huimhreacha deireanacha ó teaghráin téacs le cód VBA
Sliocht na huimhreacha deireanacha ó teaghráin téacs le cód VBA
Chun an tsraith dheireanach uimhreacha a bhaint as teaghráin téacs go tapa, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm. Déan mar seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, ansin cóipeáil agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Sliocht na huimhreacha deireanacha as teaghráin téacs:
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. Ansin brúigh F5 eochair chun an cód seo a rith, agus feictear bosca pras le cur i gcuimhne duit an raon sonraí a theastaíonn uait a úsáid a roghnú, féach an scáileán:
4. Agus ansin cliceáil OK cnaipe, agus baineadh an tsraith dheireanach uimhreacha ó gach teaghrán téacs isteach sna cealla colún cóngaracha, féach an scáileán:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!