Excel : Comment diviser du texte délimité en lignes

Disons qu'il s'agit d'un tableau à trois colonnes dans une feuille de calcul, la première répertorie les niveaux de prix, la seconde répertorie les noms de fruits délimités par des virgules dans les cellules et la troisième colonne répertorie les prix des fruits. Le travail consiste à diviser les noms de fruits délimités en lignes et à répéter les niveaux de prix et les lignes de prix associés comme illustré ci-dessous :

Présentez ici deux méthodes pour résoudre ce travail.

Fractionner le texte délimité en lignes à l'aide de VBA

Divisez le texte délimité en lignes en utilisant Power Query

Voici un code VBA qui peut rapidement diviser le texte délimité en lignes.

1. presse autre + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer onglet> Module pour créer un nouveau module vierge.

3. Copiez et collez le code ci-dessous dans le module vide.

VBA : diviser le texte délimité en lignes

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. presse F5 touche pour cliquer sur le bouton d'exécution  pour activer le code, une boîte de dialogue apparaît pour vous permettre de sélectionner la colonne qui exclut l'en-tête contenant le texte délimité devant être divisé en lignes. Cliquez sur OK.

5. Ensuite, la deuxième boîte de dialogue apparaît pour entrer le délimiteur que vous utilisez. Tapez ici une virgule (,). Cliquez sur OK.

Maintenant, les textes délimités ont été divisés en lignes et d'autres colonnes connexes ont été répétées.

  Le VBA modifiera les données d'origine, il vaut mieux en enregistrer une copie avant.

Si vous utilisez Excel 2013 ou des versions ultérieures, le Power Query sera un bon choix pour résoudre ce travail.

1. Sélectionnez la plage de données, pour cliquer Sauvegarde de > À partir du tableau/plage.

2. Dans le popping Créer un tableau boîte de dialogue, vérifier Mon tableau a des en-têtes selon vos besoins, puis cliquez sur OK.

Puis le Power Query Éditeur fenêtre est affichée et les données y ont été affichées.

3. Cliquez sur la colonne dans laquelle vous souhaitez diviser les textes délimités en lignes, puis cliquez sur Transformer onglet> Colonne divisée > Par délimiteur.

Ou vous pouvez également sélectionner la colonne et cliquer avec le bouton droit sur l'en-tête de la colonne pour choisir cette fonctionnalité dans le menu contextuel.

4. dans le Fractionner la colonne par délimiteur fenêtre, choisissez le délimiteur dont vous avez besoin dans la Sélectionnez ou saisissez un délimiteur section, puis choisissez Chaque occurrence du délimiteur option, puis développez Options avancées section à choisir rangées option. Cliquez sur OK.

Maintenant, les textes délimités ont été divisés en lignes.

5. Fermez ensuite la fenêtre, une boîte de dialogue apparaît, cliquez sur XNUMX éléments à .

Ensuite, une nouvelle feuille sera créée avec le tableau.

---

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée
• Fusionner les cellules / lignes / colonnes et conservation des données; Contenu des cellules divisées; Combiner les lignes en double et la somme / moyenne... Empêcher les cellules en double; Comparer les gammes
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Formules favorites et insérer rapidement, Plages, graphiques et images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF
• Regroupement du tableau croisé dynamique par numéro de semaine, jour de la semaine et plus encore ... Afficher les cellules déverrouillées et verrouillées par différentes couleurs; Mettre en évidence les cellules qui ont une formule / un nom

Lire la suite... Essai gratuit de 30 jours ... Achat... 

---

Office Tab - apporte une interface à onglets à Office et facilite grandement votre travail

• Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Essai gratuit de 30 jours ... Achat...