Excel: come dividere il testo delimitato in righe

Diciamo che qui c'è una tabella con tre colonne in un foglio di lavoro, la prima elenca i livelli di prezzo, la seconda elenca i nomi dei frutti con virgole delimitate nelle celle e la terza colonna elenca i prezzi dei frutti. Il lavoro consiste nel dividere i nomi dei frutti delimitati in righe e ripetere i relativi livelli di prezzo e le righe dei prezzi come mostrato nell'immagine seguente:

Qui introduci due metodi per risolvere questo lavoro.

Dividi il testo delimitato in righe usando VBA

Dividi il testo delimitato in righe utilizzando Power Query

Ecco un codice VBA che può dividere rapidamente il testo delimitato in righe.

1. Stampa altro + F11 tasti per abilitare il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire scheda> Moduli per creare un nuovo modulo vuoto.

3. Copia e incolla il codice sottostante nel modulo vuoto.

VBA: divide il testo delimitato in righe

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4. Stampa F5 per fare clic sul pulsante Esegui  per attivare il codice, viene visualizzata una finestra di dialogo per selezionare la colonna che esclude l'intestazione che contiene il testo delimitato da dividere in righe. Clic OK.

5. Quindi viene visualizzata la seconda finestra di dialogo per inserire il delimitatore che usi. Qui digita la virgola (,). Clic OK.

Ora i testi delimitati sono stati suddivisi in righe e sono state ripetute altre colonne correlate.

  Il VBA cambierà i dati originali, è meglio salvarne una copia prima.

Se utilizzi Excel 2013 o versioni successive, il Power Query sarà una buona scelta per risolvere questo lavoro.

1. Selezionare l'intervallo di dati su cui fare clic Dati > Dalla tabella/intervallo.

2. Nel popping Crea tabella dialogo, controlla La mia tabella ha intestazioni di cui hai bisogno e fai clic OK.

Poi il Power Query editore viene visualizzata la finestra e i dati sono stati visualizzati in essa.

3. Fare clic sulla colonna in cui si desidera dividere i testi delimitati in righe e fare clic Trasformare scheda> Colonna divisa > Per delimitatore.

Oppure puoi anche selezionare la colonna e fare clic con il pulsante destro del mouse sull'intestazione della colonna per scegliere questa funzione nel menu contestuale.

4. Nel Dividi colonna per delimitatore finestra, scegli il delimitatore di cui hai bisogno dalla Seleziona o inserisci il delimitatore sezione, quindi scegliere Ogni occorrenza del delimitatore opzione, quindi espandere Opzioni avanzate sezione da scegliere Righe opzione. Clic OK.

Ora i testi delimitati sono stati suddivisi in righe.

5. Quindi chiudere la finestra, viene visualizzata una finestra di dialogo, fare clic mantenere pulsante.

Quindi verrà creato un nuovo foglio con la tabella.

---

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

• Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
• Unisci celle / righe / colonne e conservazione dei dati; Contenuto delle celle divise; Combina righe duplicate e somma / media... Impedisci celle duplicate; Confronta intervalli...
• Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
• Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
• Formule preferite e di inserimento rapido, Intervalli, grafici e immagini; Crittografa celle con password; Crea mailing list e invia email ...
• Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
• Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
• Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
• Raggruppamento tabelle pivot per numero della settimana, giorno della settimana e altro ... Mostra celle sbloccate e bloccate da diversi colori; Evidenzia le celle che hanno formula / nome...

Leggi di più... Funzionalità complete Prova gratuita di 30 giorni ... Acquista... 

---

Scheda Office: porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

• 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, piuttosto che in nuove finestre.
• Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!

Leggi di più... Funzionalità complete Prova gratuita di 30 giorni ... Acquista...