Jak przenieść ostatnie słowo do następnej sąsiedniej komórki?
Przypuśćmy, że mam listę ciągów tekstowych, które chcę przenieść ostatnie słowo do następnej sąsiedniej komórki, jak pokazano na poniższym zrzucie ekranu, oczywiście możesz je wycinać i wklejać jeden po drugim, ale czy są jakieś szybkie sposoby, abyśmy mogli się poruszać je do następnej komórki naraz w programie Excel?
Przenieś ostatnie słowo do następnej sąsiedniej komórki za pomocą kodu VBA
Wyodrębnij ostatnie słowo do następnej sąsiedniej komórki za pomocą formuły
Przenieś ostatnie słowo do następnej sąsiedniej komórki za pomocą kodu VBA
Aby wyciąć i przenieść ostatnie słowo z jednej komórki do następnej sąsiedniej komórki, zastosuj następujący kod VBA:
1. Przytrzymaj przycisk ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Przenieś ostatnie słowo do następnej sąsiedniej komórki:
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawia się okienko zachęty przypominające o wybraniu komórek tekstowych, z których chcesz przenieść ostatnie słowo, patrz zrzut ekranu:
4. A następnie kliknij OK przycisk, ostatnie słowa w wybranych komórkach zostały natychmiast przeniesione do następnych sąsiednich prawych komórek, patrz zrzut ekranu:
Wyodrębnij ostatnie słowo do następnej sąsiedniej komórki za pomocą formuły
Jeśli potrzebujesz tylko wyodrębnić ostatnie słowa z ciągów tekstowych bez ich przesuwania, poniższa formuła może ci wyświadczyć przysługę.
Wprowadź tę formułę:
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) do pustej komórki obok komórki tekstowej, a następnie przeciągnij uchwyt wypełniania w dół do komórek, z których chcesz wyodrębnić ostatnie słowo, wszystkie ostatnie słowa zostały wyodrębnione z ciągów tekstowych bez przesuwania oryginalnych. Zobacz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!