Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment séparer par délimiteur et transposer des cellules dans Excel?

Dans cet article, j'introduis les manières de diviser une gamme par un délimiteur spécifique, puis de la transposer dans Excel comme illustré ci-dessous. Si vous êtes intéressé par cette tâche, veuillez aller à ci-dessous les détails.
doc spliy transposer 1

Split et transposer avec VBA

Diviser et transposer avec Kutools pour Excel


flèche bleue droite bulle Split et transposer avec VBA

Il n'y a pas de moyen direct de diviser et de transposer les données par un délimiteur spécifique, mais je peux introduire un code VBA pour vous aider à résoudre ce problème rapidement.

1. presse Alt + F11 clés à afficher Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module, et coller sous le code à la nouvelle Module fenêtre.

VBA: Split et Transpose

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. presse F5 Pour ouvrir le code, une boîte de dialogue apparaît pour vous permettre de sélectionner une plage à diviser et à transposer.
doc spliy transposer 2

4. Cliquez OK. Une boîte de dialogue apparaît pour sélectionner un emplacement pour placer les données.
doc spliy transposer 3

5. Cliquez OK, et la sélection a été scindée et transposée par virgule.
doc spliy transposer 4

Remarque: dans le code, la virgule dans l'ary = Split (strTxt, ",") est le délimiteur que vous allez partager les données, vous pouvez le changer selon vos besoins.


flèche bleue droite bulle Diviser et transposer avec Kutools pour Excel

Avec Kutools for Excel, vous pouvez appliquer son Cellules divisés d'abord diviser les cellules par délimiteur, puis appliquer le Chaîne de transformation utilitaire pour convertir les cellules en une colonne.

Kutools for Excel, avec plus de 120 fonctions pratiques, rend vos travaux plus faciles.

Après l'installation de Kutools pour Excel, s'il vous plaît faire comme ci-dessous :(Téléchargement gratuit Kutools for Excel maintenant!)

1. Sélectionnez les cellules que vous souhaitez diviser et cliquez Kutools > Texte > Cellules divisés. Voir la capture d'écran:
doc spliy transposer 5

2. dans le Cellules divisés dialogue, vérifier Diviser en colonnes option, puis spécifiez le délimiteur que vous souhaitez diviser en fonction de, cliquez sur Ok. Et sélectionnez une cellule vide pour placer le résultat dans la seconde Cellules divisés dialogue. Voir la capture d'écran:
doc spliy transposer 6

3. Cliquez OK, puis les cellules ont été divisées en colonnes, puis cliquez sur Kutools > étendue > Chaîne de transformation. Voir la capture d'écran:
doc spliy transposer 7

4. dans le Chaîne de transformation dialogue, vérifier Plage à une seule colonnecliquez Oket sélectionnez une cellule pour placer le résultat. Voir la capture d'écran:
doc spliy transposer 8

5. Cliquez OK, maintenant la gamme a été transposée dans une colonne.
doc spliy transposer 9

Pointe. Si vous voulez avoir un essai gratuit du Cellules divisés et Chaîne de transformation fonctions, s'il vous plaît aller à essayer gratuitement Kutools for Excel d'abord, puis allez appliquer l'opération selon les étapes ci-dessus.



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.