Comment convertir un tableau croisé (tableau à 2 dimensions) en liste dans Excel?
Savez-vous comment convertir un tableau croisé (tableau à deux dimensions) en tableau de liste (tableau à une dimension) dans Microsoft Excel? Pour certaines raisons, vous devrez peut-être convertir un tableau (avec des en-têtes de ligne et des en-têtes de colonne) en une liste plate dans Excel. Les astuces suivantes peuvent vous aider à convertir facilement et rapidement un tableau croisé en liste plate:
- Convertir un tableau croisé en liste dans Excel avec VBA
- Convertir un tableau croisé en liste dans Excel avec Kutools for Excel
Supposons que vous ayez une table croisée et que vous deviez la convertir en liste comme suit.
Tableau croisé (avec en-têtes de lignes et en-têtes de colonnes) | Une table de liste (table unidimensionnelle) |
Convertir un tableau croisé en liste dans Excel avec VBA
La macro VBA suivante peut vous aider à convertir rapidement toutes les tables croisées de la feuille de calcul active en listes plates.
Étape 1: maintenez la touche autre + F11 clés dans Excel et il ouvre la fenêtre Microsoft Visual Basic pour Applications.
Étape 2: cliquez sur insérer > Moduleet collez la macro suivante dans la fenêtre Module.
Le tableau croisé VBA sur transpose pour lister:
Sous ConvertTableToList ()
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow aussi longtemps
Diminuer iLastCol aussi longtemps
Application.ScreenUpdating = Faux
Avec ActiveSheet
iLastRow = .Cells (.Rows.Count, TEST_COLUMN) .End (xlUp) .Row
Pour i = iLastRow To 2 Step -1
iLastCol = .Cells (i, .Columns.Count) .End (xlToLeft) .Colonne
Pour j = iLastCol To 3 Step -1
.Rows (i + 1) .Insérer
.Cellules (i + 1, 2) .Valeur = .Cellules (i, j) .Valeur
.Cellules (i, j) .Valeur = ""
Suivant j
Suivant i
.Rows (1) .Supprimer
Terminer par
Application.ScreenUpdating = True
End Sub
Étape 3: cliquez sur le F5 clé pour exécuter cette macro.
Ensuite, vous verrez la liste convertie s'afficher comme la capture d'écran suivante:
Remarque:
1. Cette macro VBA perd certaines données de la table d'origine, telles que les en-têtes ou autres. Dans ce cas, les en-têtes (Nom, Grade et Classe) sont perdus.
2. Vous pouvez changer As String = "A", pour répondre à vos besoins. Par exemple, si le tableau croisé est indiqué dans la colonne E, vous devez à la place "E" de "A".
3. Et s'il y a d'autres données dans la feuille de calcul, parfois les données de la liste seront erronées après la conversion d'un tableau croisé.
Convertir des tableaux croisés en listes dans Excel avec Kutools for Excel
Si vous avez Kutools for Excel installé, vous pouvez utiliser son Transposer les dimensions de la table outil pour convertir rapidement des tableaux croisés en liste plate.
Kutools for Excel comprend plus de 300 outils Excel pratiques. Essai gratuit sans limitation de 30 jours. Obtenez-le maintenant.
Étape 1: Sélectionnez la table que vous allez convertir en liste.
Étape 2: cliquez sur le Kutools >modifier > Transposer la dimension de la table. Voir la capture d'écran suivante:
Étape 3: Dans la boîte de dialogue Transposer les dimensions de la table, cochez la case Croiser le tableau vers la liste et sélectionnez l'option Gamme de résultats en cliquant sur le .
Étape 4: cliquez sur OK .
Ensuite, vous verrez la table d'origine est convertie en une liste plate comme capture d'écran suivante:
Transposer les dimensions de la table peut également convertir la liste en tableau croisé. Pour plus d'informations, rendez-vous sur Transposer les dimensions de la table.
Articles relatifs:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
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!