Conas an focal deireanach a bhogadh go dtí an chéad chill eile in aice láimhe?
Ag ceapadh, tá liosta de shreangáin téacs agam a theastaíonn uaim an focal deireanach a bhogadh go dtí an chéad chill eile in aice láimhe mar a leanas an pictiúr a thaispeántar, ar ndóigh, is féidir leat iad a ghearradh agus a ghreamú ceann ar cheann, ach an bhfuil aon bhealaí gasta ann dúinn bogadh iad go dtí an chéad chill eile ag an am céanna in Excel?
Bog an focal deireanach go dtí an chéad chill eile in aice láimhe le cód VBA
Sliocht an focal deireanach go dtí an chéad chill eile in aice láimhe le foirmle
Bog an focal deireanach go dtí an chéad chill eile in aice láimhe le cód VBA
Chun an focal deireanach a ghearradh agus a bhogadh ó chill amháin go dtí an chéad chill eile in aice láimhe, cuir an cód VBA seo a leanas i bhfeidhm:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Bog an focal deireanach go dtí an chéad chill eile in aice láimhe:
Sub splitlastword()
Dim xCell As Range
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please selec the text cells:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only one column in the seleted range", vbInformation, "Kutools for Excel"
Exit Sub
End If
For Each xCell In xRg
xStr = Trim(xCell.Value)
xCell.Offset(0, 1) = Mid(xStr, InStrRev(xStr, " "))
xCell.Value = Left(xStr, InStrRev(xStr, " "))
Next
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit na cealla téacs a theastaíonn uait an focal deireanach a bhogadh uathu a roghnú, féach an scáileán:
4. Agus ansin cliceáil OK cnaipe, aistríodh na focail dheireanacha i gcealla roghnaithe go dtí na chéad chealla ceart cóngaracha eile láithreach, féach an scáileán:
Sliocht an focal deireanach go dtí an chéad chill eile in aice láimhe le foirmle
Mura gá duit ach na focail dheireanacha a bhaint as na teaghráin téacs gan iad a bhogadh, is féidir leis an bhfoirmle seo a leanas fabhar a thabhairt duit.
Iontráil an fhoirmle seo le do thoil:
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) isteach i gcill bhán in aice leis an gcill téacs, agus ansin tarraing an láimhseáil líonta síos go dtí na cealla ar mhaith leat an focal deireanach a bhaint astu, baineadh na focail dheireanacha go léir as na teaghráin téacs gan na cinn bhunaidh a bhogadh. Féach an pictiúr:
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á!