Jak zmienić układ tekstu w komórce w programie Excel?

Przypuśćmy, że masz arkusz kalkulacyjny z długimi listami nazw, które mają format „Nazwisko Imię”, a teraz musisz zmienić kolejność wszystkich nazw na „Imię, Nazwisko”. Jak to osiągnąć? W tym artykule przedstawimy trzy metody, które pomogą Ci rozwiązać problem.

Zmień kolejność tekstu w komórce za pomocą formuły
Zmień kolejność tekstu w komórce za pomocą kodu VBA
Szybko przestawiaj tekst w komórce za pomocą Kutools for Excel

Zmień kolejność tekstu w komórce za pomocą formuły

Poniższa formuła może pomóc w odwróceniu nazwiska i imienia w komórce w programie Excel. Wykonaj następujące czynności.

1. Wybierz pustą komórkę, aby wyprowadzić zmieniony tekst, wprowadź do niej poniższą formułę, a następnie naciśnij klawisz Enter.

= TRIM (ŚRODEK (b2, SZUKAJ ("", b2) +1,250 2)) & "" & LEWO (b2, SZUKAJ ("", b1) -XNUMX)

Uwagi: we wzorze B2 to komórka zawierająca nazwę, którą zmienisz. Zmień to w zależności od potrzeb.

2. Kontynuuj wybieranie komórki wynikowej, przeciągnij uchwyt wypełnienia w dół, aby odwrócić wszystkie nazwy, jak pokazano poniżej.

Zmień kolejność tekstu w komórce za pomocą kodu VBA

Poza tym możesz zastosować poniższy kod VBA, aby odwrócić wszystkie nazwy na liście jednocześnie w Excelu. Wykonaj następujące czynności.

1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VAB do okna modułu.

Kod VBA: Zmień kolejność tekstu w komórce

Sub RearrangeText() 
'Updated by Extendoffice 20180503
Dim xRg As Range, yRg As Range 
Dim LastRow As Long, i As Long 
Dim strTxt As String, strFs As String 
Dim strLs As String, N As Integer 
On Error Resume Next 
Set xRg = Application.InputBox(Prompt:="Range Selection:", _ 
Title:="Kutools for excel", Type:=8) 
For Each yRg In xRg 
On Error Resume Next 
strTxt = yRg.Value 
Trim (strTxt) 
N = InStr(strTxt, " ") 
strLs = Left(strTxt, N - 1) 
strFs = Right(strTxt, Len(strTxt) - N) 
yRg.Value = strFs & " " & strLs 
Next 
End Sub

3. Następnie a Kutools dla programu Excel pojawi się okno dialogowe, wybierz listę nazw, którą chcesz zmienić, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:

Następnie wszystkie „Nazwisko Imię” na wybranej liście są natychmiast odwracane.

Szybko przestawiaj tekst w komórce za pomocą Kutools for Excel

Ta sekcja wprowadzi Odwróć kolejność tekstu użyteczność Kutools dla programu Excel aby pomóc Ci zmienić układ tekstu w komórce.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. Wybierz listę nazw, którą chcesz odwrócić, „Nazwisko Imię”, a następnie kliknij Kutools > Tekst > Odwróć kolejność tekstu. Zobacz zrzut ekranu:

2. w Odwróć tekst w oknie dialogowym wybierz opcję Miejsce opcję, a następnie kliknij przycisk OK przycisk. Zobacz zrzut ekranu:

Następnie wszystkie nazwy na wybranej liście są przestawiane jednocześnie.

  Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.

Podobne artykuły:

• Jak zamienić lub odwrócić dzień i miesiąc w programie Excel?
• Jak zamienić lub zamienić tekst w jednej komórce w programie Excel?

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

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ęć myszą każdego dnia!

Czytaj więcej... Darmowe pobieranie... Zakup...