Comment empiler les colonnes de gauche à droite en une seule colonne dans Excel ?
Supposons qu’il existe plusieurs colonnes ; l’objectif est de les empiler de gauche à droite en une seule colonne, comme illustré ci-dessous. Outre le déplacement manuel des données colonne par colonne, existe-t-il des astuces pour résoudre ce problème dans Excel ?
Empiler les colonnes De gauche à droite en une seule colonne à l’aide de VBA
Empiler les colonnes De gauche à droite en une seule colonne avec Kutools pour Excel
Empiler les colonnes De gauche à droite en une seule colonne à l’aide de VBA
Excel ne propose aucune fonction intégrée pour effectuer cette opération, mais un code VBA peut vous venir en aide.
1. Appuyez sur les touches Alt + F11, puis, dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module pour créer un nouveau module vide.
2. Copiez et collez le code ci-dessous dans le module.
VBA : Empiler les colonnes en une seule
Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNumC = 1 To xSRg.Columns.Count
For xFNumR = 1 To xSRg.Rows.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
xI = xI + 1
Next xFNumR
Next xFNumC
Application.ScreenUpdating = True
End Sub
3. Appuyez sur la touche F5 pour exécuter le code. Une boîte de dialogue s’ouvre afin que vous puissiez sélectionner les colonnes à empiler en une seule.
4. Cliquez sur OK, puis sélectionnez une cellule où insérer le résultat.
5. Cliquez sur OK pour terminer. Les colonnes sélectionnées ont désormais été empilées en une seule colonne.
Empiler les colonnes De gauche à droite en une seule colonne avec Kutools pour Excel
Si vous avez installé Kutools pour Excel dans Excel, vous pouvez utiliser l’utilitaire Transform Range pour effectuer cette tâche.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Sélectionnez les colonnes que vous souhaitez empiler, puis cliquez sur Kutools > Plage > Transform Range.
2. Dans la boîte de dialogue Transform Range, cochez la case Range to single row, puis cliquez sur OK.
3. Dans la boîte de dialogue qui s’ouvre, sélectionnez la cellule où vous souhaitez afficher le résultat, puis cliquez sur OK.
Les colonnes ont désormais été regroupées en une seule ligne.
4. Sélectionnez cette ligne unique, appuyez sur Ctrl + C pour la copier, puis cliquez sur une autre cellule destinée à accueillir la colonne empilée. Cliquez avec le bouton droit et choisissez Transpose(T) dans le menu contextuel.
La ligne unique a désormais été transformée en une colonne empilée.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels