Passer au contenu principal

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 :
texte de remplissage de doc basé sur la couleur 1

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


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

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 texte de remplissage de doc basé sur la couleur 1 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.
texte de remplissage de doc basé sur la couleur 1

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.
texte de remplissage de doc basé sur la couleur 1

Maintenant, les textes délimités ont été divisés en lignes et d'autres colonnes connexes ont été répétées.
texte de remplissage de doc basé sur la couleur 1

texte de remplissage de doc basé sur la couleur 1  Le VBA modifiera les données d'origine, il vaut mieux en enregistrer une copie avant.


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

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 Données > À partir du tableau/plage.
texte de remplissage de doc basé sur la couleur 1

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.
texte de remplissage de doc basé sur la couleur 1

Puis le Power Query Éditeur fenêtre est affichée et les données y ont été affichées.
texte de remplissage de doc basé sur la couleur 1

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.
texte de remplissage de doc basé sur la couleur 1

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.
texte de remplissage de doc basé sur la couleur 1

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.
texte de remplissage de doc basé sur la couleur 1

Maintenant, les textes délimités ont été divisés en lignes.
texte de remplissage de doc basé sur la couleur 1

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

Ensuite, une nouvelle feuille sera créée avec le tableau.
texte de remplissage de doc basé sur la couleur 1


Autres opérations (articles)

Comment alterner la couleur de ligne en fonction du groupe dans Excel?
Dans Excel, colorer une ligne sur deux peut être plus facile pour la plupart d'entre nous, mais avez-vous déjà essayé de colorer les lignes en alternance en fonction des changements de valeur de colonne - Colonne A comme capture d'écran suivante, dans cet article, je vais parler de la façon dont pour alterner la couleur de ligne en fonction du groupe dans Excel.

Comment réduire la taille du fichier Excel ?
Parfois, l'ouverture ou l'enregistrement prendra quelques minutes si le fichier Excel est trop volumineux. Pour résoudre ce problème, ici dans ce tutoriel, il vous indique comment réduire la taille du fichier Excel en supprimant le contenu ou les formats inutiles ou jamais utilisés.

Excel : comment créer ou insérer un signet
Avez-vous déjà imaginé créer ou insérer un signet pour accéder rapidement à une plage de données spécifique alors qu'il y a beaucoup de données dans une feuille de calcul ou un classeur ?

Comment appliquer un ombrage aux lignes / colonnes impaires ou paires (alternatives) dans Excel?
Lors de la conception d'une feuille de calcul, de nombreuses personnes ont tendance à appliquer un ombrage aux lignes ou colonnes impaires ou paires (alternatives) afin de rendre la feuille de calcul plus visuelle. Cet article vous montrera deux méthodes pour appliquer un ombrage aux lignes / colonnes impaires ou paires dans Excel.


  • 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
onglet kte 201905
  • 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!
bas de cabine
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations