Skip to main content

Come dividere rapidamente una stringa di testo in base al caso in Excel?

Author: Sun Last Modified: 2025-05-29

In Excel, di solito dividiamo il testo per larghezza fissa o delimitatore con la funzione Testo in Colonne, ma avete mai provato a dividere il testo in base a maiuscole e minuscole? Ad esempio, avete un elenco di dati che devono essere divisi in due colonne in base al caso: una colonna contiene la stringa in minuscolo e l'altra contiene la stringa in maiuscolo, come mostrato nello screenshot sottostante. La funzione Testo in Colonne non supporta questa operazione; tuttavia, posso introdurre un trucco per dividere rapidamente una stringa di testo in base al caso in Excel.

Dividere il testo per caso con VBA

Dividere il testo in righe/colonne per separatore con Kutools per Excel


arrow blue right bubble Dividere il testo per caso con VBA

In Excel, esiste solo un codice macro per dividere rapidamente una stringa in base a minuscole e maiuscole.

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

2. Fare clic su Inserisci > Modulo e incollare il codice seguente nel Modulo vuoto.

VBA: Dividi stringa per caso.

Sub CamelCase()
'UpdatebyExtendoffice20160711
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Nothing
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    With CreateObject("vbscript.regexp")
        .Pattern = "(\S)([A-Z]+[^A-Z])"
        .Global = True
        For Each xCell In xRg
            xCount = .Execute(xCell).Count
            If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
        Next
    End With
    Application.ScreenUpdating = True
End Sub

copy and paste the code into the module

3. Premere F5 e apparirà una finestra di dialogo che vi chiederà di selezionare i testi da dividere. Vedere lo screenshot:
vba code to select texts to split

4. Fare clic su OK, e i testi selezionati verranno divisi in due colonne, una contenente le lettere minuscole e l'altra contenente le lettere maiuscole.
the text is split by case


arrow blue right bubble Dividere il testo in righe/colonne per separatore con Kutools per Excel

In molti casi, potreste voler dividere una cella in più righe o colonne basandovi su un carattere specifico. In Excel, la funzione incorporata Testo in Colonne può aiutarvi a convertire una cella direttamente in colonne, ma non funziona per la conversione in righe. Tuttavia, con Kutools per Excel – uno strumento pratico e utile – potete applicare la sua funzione Dividi Celle per dividere rapidamente una stringa in righe o colonne basandovi su un separatore o una larghezza specifica.

Kutools per Excel offre oltre 300 funzionalità avanzate per semplificare compiti complessi, aumentando creatività ed efficienza. Integrato con capacità di intelligenza artificiale, Kutools automatizza le attività con precisione, rendendo la gestione dei dati senza sforzo. Informazioni dettagliate su Kutools per Excel... Prova gratuita...

Dopo aver installato gratuitamente Kutools per Excel, procedete come segue:

1. Selezionate la cella che volete dividere e fate clic su Kutools > Unisci & Dividi > Dividi celle. Vedere lo screenshot:
click Split Cells feature of kutools

2. Nella finestra di dialogo Dividi celle , selezionate il tipo di divisione desiderato nella sezione Tipo , e andate a selezionare il delimitatore specifico su cui volete dividere nella sezione Dividi per . Vedere lo screenshot:
specify the options in the dialog box

3. Fare clic su Ok, apparirà una finestra di dialogo che vi chiederà di selezionare una cella in cui inserire i contenuti divisi. Vedere lo screenshot:
select a cell to place the split contents

4. Dopo aver selezionato, fare clic su OK, e la cella selezionata verrà divisa in righe basandosi sullo spazio. Vedere lo screenshot:
the selected cells are split into rows based on space

I migliori strumenti per la produttività in Office

🤖 Kutools AI Aide: Rivoluziona l'analisi dei dati grazie a: Esecuzione Intelligente | Genera Codice | Crea Formule Personalizzate | Analizza Dati e Genera Grafici | Richiama Funzioni avanzate di Kutools
Funzionalità popolari: Trova, evidenzia o contrassegna duplicati | Elimina righe vuote | Unisci colonne o celle senza perdere dati | Arrotonda...
Super RICERCA.VERT: Ricerca VERT con criteri multipli | Ricerca VERT con valori multipli | Ricerca su più fogli | Corrispondenza approssimativa...
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa | Elenco a discesa dipendente | Elenco a discesa multi-selezione...
Gestione Colonne: Aggiungi un numero specifico di colonne | Sposta colonne | Attiva/disattiva la visibilità delle colonne nascoste | Confronta intervalli e colonne...
Funzionalità in evidenza: Attenzione della griglia | Visualizzazione di progettazione | Barra delle formule avanzata | Gestione Cartella di lavoro e Foglio di lavoro | Libreria AutoText | Selettore di data | Unisci dati | Crittografa/Decrittografa celle | Invia Email tramite elenco | Super Filtri | Filtro speciale (filtra grassetto/corsivo/barrato...) ...
Top15 set di strumenti:12 strumenti di testo (Aggiungi testo, Elimina Caratteri Specifici, ...) | Oltre50 tipi di grafici (Diagramma di Gantt, ...) | Oltre40 formule pratiche (Calcola l'età in base alla data di nascita, ...) |19 strumenti di inserimento (Inserisci codice QR, Inserisci Immagine da percorso, ...) |12 strumenti di conversione (Converti in parole, Conversione valuta, ...) |7 strumenti di unione e divisione (Unione avanzata righe, Dividi celle, ...) | ... e molto altro

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...


Office Tab porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, invece che in nuove finestre.
  • Aumenta la tua produttività del50% e riduce centinaia di clic del mouse ogni giorno!