Come dividere rapidamente una stringa di testo in base a maiuscole e minuscole in Excel?
In Excel, di solito si divide il testo in base a una larghezza fissa o a un delimitatore utilizzando la funzione **Testo in colonne**, ma hai mai provato a suddividerlo in base alle maiuscole e alle minuscole? Immagina, ad esempio, di avere un elenco di dati da separare in due colonne in base al tipo di carattere: una colonna con stringhe contenenti lettere minuscole e l’altra con stringhe contenenti lettere maiuscole, come mostrato nell’immagine seguente. La funzione **Testo in colonne** non supporta questa operazione, ma posso svelarti un trucco per dividere rapidamente una stringa di testo in base a maiuscole e minuscole in Excel.
Dividi il testo per maiuscole/minuscole con VBA
Dividi il testo in righe/colonne per separatore con Kutools per Excel
Dividi il testo per maiuscole/minuscole con VBA
In Excel, è disponibile solo una macro per suddividere rapidamente una stringa in base a maiuscole e minuscole.
1. Premi i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nello spazio vuoto del Modulo.
VBA: Dividi la stringa in base al tipo di carattere.
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
3. Premi il tasto F5: si aprirà una finestra di dialogo che ti chiederà di selezionare i testi da dividere. Vedi immagine:
4. Fai clic su OK e i testi selezionati verranno divisi in due colonne: una con le stringhe in minuscolo e l’altra con quelle in maiuscolo.
Dividi il testo in righe/colonne per separatore con Kutools per Excel
In molti casi potresti aver bisogno di dividere una cella in più righe o colonne in base a un carattere specifico. In Excel, la funzione integrata Testo in colonne consente soltanto di convertire direttamente una cella in colonne, ma non supporta la conversione in righe. Tuttavia, con Kutools per Excel – uno strumento pratico e potente – puoi sfruttare la sua funzionalità Dividi celle per suddividere rapidamente una stringa in righe o colonne, utilizzando un separatore o una larghezza fissa.
Dopo aver installato gratuitamenteKutools per Excel, procedi come segue:
1. Seleziona la cella che desideri dividere, quindi fai clic su Kutools > Unisci e Dividi > Dividi celle. Vedi immagine:
2. Nella finestra di dialogo Dividi celle, seleziona il tipo di suddivisione desiderato nella sezione Tipo, quindi specifica il delimitatore che vuoi utilizzare come base per la suddivisione nella sezione Dividi per. Vedi immagine:
3. Fai clic su Ok: si aprirà una finestra di dialogo che ti chiederà di selezionare una cella in cui inserire i contenuti suddivisi. Vedi immagine:
4. Dopo aver selezionato la cella, fai clic su OK e la cella verrà suddivisa in righe in base agli spazi. Vedi immagine:
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi