Come riorganizzare il testo in una cella in Excel?

Supponiamo di avere un foglio di calcolo con un lungo elenco di nomi formattati come “Cognome Nome”, e ora è necessario riorganizzare tutti i nomi in “Nome, Cognome”. Come si può ottenere questo? Questo articolo introduce tre metodi per risolvere il problema.

Riorganizza il testo in una cella con una formula
Riorganizza il testo in una cella con il codice VBA
Riorganizza rapidamente il testo in una cella con Kutools per Excel

Riorganizza il testo in una cella con una formula

La seguente formula può aiutarti a invertire cognome e nome in una cella in Excel. Procedi come segue.

1. Seleziona una cella vuota per esportare il testo riorganizzato, inserisci la formula sottostante al suo interno e poi premi il tasto Invio.

=TRIM(MID(b2;RICERCA(" ";b2)+1;250))&" "&SINISTRA(b2;RICERCA(" ";b2)-1)

Nota: nella formula, B2 è la cella che contiene il nome che desideri riorganizzare. Modificala in base alle tue esigenze.

2. Continua a selezionare la cella del risultato, trascina la maniglia di riempimento verso il basso per invertire tutti i nomi come mostrato nello screenshot sottostante.

Riorganizza il testo in una cella con il codice VBA

Inoltre, puoi applicare il seguente codice VBA per invertire tutti i nomi in un elenco contemporaneamente in Excel. Procedi come segue.

1. Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic per Applicazioni.

2. Nella finestra Microsoft Visual Basic per Applicazioni, fai clic su Inserisci > Modulo. Quindi copia il seguente codice VBA nella finestra Modulo.

Codice VBA: Riorganizza il testo in una cella

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. Successivamente, apparirà una finestra di dialogo di Kutools per Excel, seleziona l'elenco dei nomi che desideri riorganizzare e quindi fai clic sul pulsante OK. Vedi lo screenshot:

Tutte le voci “Cognome Nome” nell'elenco selezionato verranno immediatamente invertite.

Riorganizza rapidamente il testo in una cella con Kutools per Excel

Questa sezione introdurrà l'utilità Ordinamento inverso del testo di Kutools per Excel per aiutarti a riorganizzare il testo in una cella.

1. Seleziona l'elenco dei nomi in cui vuoi invertire “Cognome Nome”, quindi fai clic su Kutools > Testo > Inverti testo. Vedi lo screenshot:

2. Nella finestra di dialogo Inverti testo, seleziona l'opzione Spazio e quindi fai clic sul pulsante OK. Vedi lo screenshot:

Tutti i nomi nell'elenco selezionato verranno riorganizzati immediatamente.

Articoli correlati:

• Come scambiare o invertire giorno e mese di una data in Excel?
• Come scambiare o spostare il testo all'interno di una cella in Excel?