Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako premakniti zadnjo besedo v naslednjo sosednjo celico?

Domneva, da imam seznam besednih nizov, za katere želim premakniti zadnjo besedo na naslednjo sosednjo celico, kot prikazuje naslednja slika prikaza, seveda jih lahko izrežete in prilepite eno za drugo, vendar obstajajo kakšni hitri načini za nas jih na naslednjo celico naenkrat v Excelu?

doc premakne zadnjo besedo na naslednjo celico 1

Premakni zadnjo besedo na naslednjo sosednjo celico s kodo VBA

Izvlecite zadnjo besedo na naslednjo sosednjo celico s formulo


puščica modra desno mehurček Premakni zadnjo besedo na naslednjo sosednjo celico s kodo VBA


Če želite izrezati in premakniti zadnjo besedo iz ene celice v naslednjo sosednjo celico, uporabite naslednjo kodo VBA:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: premaknite zadnjo besedo na naslednjo sosednjo celico:

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. Nato pritisnite F5 ključ za zagon te kode in izpisano je polje za hitro klicanje, ki vas opomni, da izberete besedilne celice, iz katerih želite premakniti zadnjo besedo, glejte sliko zaslona:

doc premakne zadnjo besedo na naslednjo celico 2

4. In nato kliknite OK , so bile zadnje besede v izbranih celicah takoj premaknjene v naslednje sosednje desne celice, glejte sliko zaslona:

doc premakne zadnjo besedo na naslednjo celico 1


puščica modra desno mehurček Izvlecite zadnjo besedo na naslednjo sosednjo celico s formulo

Če morate le iz besednih nizov izvleči zadnje besede, ne da bi jih premaknili, vam lahko naslednja formula naredi uslugo.

Vnesite to formulo:

=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) v prazno celico poleg celice z besedilom in povlecite ročico za polnjenje navzdol do celic, ki jih želite izvleči iz zadnje besede, vse zadnje besede so bile izpisane iz besedilnih nizov, ne da bi premaknili izvirne. Prikaz slike:

doc premakne zadnjo besedo na naslednjo celico 3


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.