Sut i symud y gair olaf i'r gell gyfagos nesaf?
Gan dybio, mae gen i restr o dannau testun yr wyf am symud y gair olaf i'r gell gyfagos nesaf fel y dangosir ar-lein, wrth gwrs, gallwch eu torri a'u pastio fesul un, ond a oes unrhyw ffyrdd cyflym inni symud. nhw i'r gell nesaf ar unwaith yn Excel?
Symudwch y gair olaf i'r gell gyfagos nesaf gyda chod VBA
Tynnwch y gair olaf i'r gell gyfagos nesaf gyda fformiwla
Symudwch y gair olaf i'r gell gyfagos nesaf gyda chod VBA
I dorri a symud y gair olaf o un gell i'r gell gyfagos nesaf, cymhwyswch y cod VBA canlynol:
1. Dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Symudwch y gair olaf i'r gell gyfagos nesaf:
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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa o ddewis y celloedd testun yr ydych am symud y gair olaf ohonynt, gweler y screenshot:
4. Ac yna cliciwch OK botwm, mae'r geiriau olaf mewn celloedd dethol wedi'u symud i'r celloedd cywir nesaf ar unwaith, gweler y screenshot:
Tynnwch y gair olaf i'r gell gyfagos nesaf gyda fformiwla
Os oes angen i chi echdynnu'r geiriau olaf o'r tannau testun heb eu symud, gall y fformiwla ganlynol wneud ffafr i chi.
Rhowch y fformiwla hon:
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) i mewn i gell wag wrth ymyl y gell destun, ac yna llusgwch y ddolen llenwi i lawr i'r celloedd rydych chi am echdynnu'r gair olaf, mae'r holl eiriau olaf wedi'u tynnu o'r tannau testun heb symud y rhai gwreiddiol. 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!