Hogyan lehet az utolsó szót áthelyezni a következő szomszédos cellába?
Tételezzük fel, hogy van egy listám szöveges karakterláncokról, amelyeket az utolsó szót át akarok helyezni a következő szomszédos cellába, az alábbi képernyőkép szerint. Természetesen egyesével kivághatja és beillesztheti őket, de vannak-e gyors módjaink őket azonnal az Excel következő cellájába?
Vigye az utolsó szót a következő szomszédos cellába VBA kóddal
Bontsa ki az utolsó szót a következő szomszédos cellába képlettel
Vigye az utolsó szót a következő szomszédos cellába VBA kóddal
Az utolsó szó egyik cellából a következő szomszédos cellába történő átvágásához és a következő VBA-kód használatához:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Az utolsó szó áthelyezése a következő szomszédos cellába:
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító doboz, amely emlékeztet arra, hogy kiválasztja azokat a szöveges cellákat, amelyekből az utolsó szót áthelyezni szeretné, lásd a képernyőképet:
4. Kattintson a gombra OK gomb, a kijelölt cellák utolsó szavai azonnal átkerültek a következő szomszédos jobb cellákba, lásd a képernyőképet:
Bontsa ki az utolsó szót a következő szomszédos cellába képlettel
Ha csak az utolsó szavakat kell kibontania a szöveges karakterláncokból anélkül, hogy azokat áthelyezné, a következő képlet tehet Önnek szívességet.
Kérjük, írja be ezt a képletet:
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) egy üres cellába a szövegcella mellett, majd húzza lefelé a kitöltő fogantyút azokhoz a cellákhoz, amelyekből ki akarja vonni az utolsó szót. Az összes utolsó szót kivonták a szöveges karakterláncokból az eredeti szavak mozgatása nélkül. Lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!