Hvordan flyttes sidste ord til næste tilstødende celle?
Antag, jeg har en liste med tekststrenge, som jeg vil flytte det sidste ord til næste tilstødende celle som vist på skærmbilledet, selvfølgelig kan du klippe og indsætte dem en efter en, men er der nogen hurtige måder for os at flytte på dem til næste celle på én gang i Excel?
Flyt sidste ord til næste tilstødende celle med VBA-kode
Uddrag sidste ord til næste tilstødende celle med formel
Flyt sidste ord til næste tilstødende celle med VBA-kode
Hvis du vil klippe og flytte det sidste ord fra en celle til den næste tilstødende celle, skal du anvende følgende VBA-kode:
1. Hold nede i ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Flyt sidste ord til næste tilstødende celle:
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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises en promptboks for at minde dig om at vælge de tekstceller, som du vil flytte det sidste ord fra, se skærmbillede:
4. Og klik derefter på OK knappen, de sidste ord i valgte celler er flyttet til de næste tilstødende højre celler med det samme, se skærmbillede:
Uddrag sidste ord til næste tilstødende celle med formel
Hvis du bare har brug for at udtrække de sidste ord fra tekststrengene uden at flytte dem, kan følgende formel gøre dig en tjeneste.
Indtast venligst denne formel:
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) ind i en tom celle ved siden af tekstcellen, og træk derefter udfyldningshåndtaget ned til de celler, som du vil udtrække det sidste ord, alle sidste ord er blevet uddraget fra tekststrengene uden at flytte de originale. Se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!