Come scambiare o invertire il testo all'interno di una cella in Excel?

In molti casi, potrebbe essere necessario scambiare il testo all'interno di una singola cella per vari scopi. Ad esempio, se una cella contiene il nome Smith John, è necessario scambiare i testi all'interno della cella per cambiare il nome in John Smith. Questo articolo elenca alcuni metodi per risolvere questo problema.

Scambiare o invertire il testo all'interno di una cella utilizzando una formula
Scambiare o invertire il testo all'interno di una cella utilizzando il codice VBA
Scambia o inverti facilmente il testo all'interno di una cella con Kutools per Excel>

Scambiare o invertire il testo all'interno di una cella utilizzando una formula

La seguente formula può aiutarti a scambiare il testo all'interno di una cella in Excel. Procedi come segue.

1. Seleziona una cella vuota per posizionare i dati scambiati, inserisci la formula nella Barra delle formule (F), quindi premi il tasto Invio. Vedi screenshot:

=DESTRA(A2,LUNGHEZZA(A2)-TROVA(" ",A2)) & " " & SINISTRA(A2,TROVA(" ",A2)-1)

2. Seleziona la cella del risultato, quindi trascina la maniglia di riempimento verso il basso per ottenere i restanti risultati come mostrato nello screenshot sottostante.

Quindi puoi vedere che il nome e il cognome sono stati scambiati nelle celle specificate.

Nota: Questo metodo può solo scambiare due testi all'interno di una cella separati da uno spazio.

Scambiare o invertire il testo all'interno di una cella utilizzando il codice VBA

Come mostrato nell'esempio precedente, puoi anche eseguire lo script VBA seguente per scambiare o invertire il testo all'interno di una cella.

1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Quindi copia e incolla il seguente codice VBA nella finestra Modulo.

Codice VBA: Scambiare o invertire il testo all'interno di una cella

Sub res()
    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. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Kutools per Excel che appare, seleziona l'intervallo con i dati che devi scambiare, quindi clicca sul pulsante OK. Vedi screenshot:

Quindi puoi vedere che i testi nelle celle dei nomi specificati vengono immediatamente scambiati.

Nota: Questo codice può anche scambiare correttamente due parole all'interno di una cella separate da uno spazio.

Scambia o inverti facilmente il testo all'interno di una cella con Kutools per Excel

Questa sezione raccomanda l'utilità Inverti testo di Kutools per Excel per aiutarti a risolvere facilmente questo problema. Procedi come segue.

1. Seleziona l'intervallo contenente i testi che devi scambiare, quindi clicca su Kutools > Testo > Inverti testo. Vedi screenshot:

2. Nella finestra di dialogo Inverti testo, specifica un separatore in base al quale scambierai i testi nella sezione Separatore. In questo caso, seleziono l'opzione Spazio. Quindi clicca sul pulsante OK.

Quindi puoi vedere che i dati nelle celle selezionate vengono immediatamente scambiati nella stessa cella tramite il separatore specificato.

Articolo correlato:

• Come scambiare o invertire giorno e mese di una data in Excel?