Comment empiler des colonnes de gauche à droite dans une colonne dans Excel?
En supposant qu'il y ait plusieurs colonnes, le travail consiste à empiler les colonnes de gauche à droite dans une seule colonne, comme illustré ci-dessous. Sauf déplacer manuellement les colonnes une par une, existe-t-il des astuces pour résoudre ce problème dans Excel?
Empilez les colonnes de gauche à droite dans une colonne avec VBA
Empilez les colonnes de gauche à droite dans une colonne avec Kutools for Excel
Empilez les colonnes de gauche à droite dans une colonne avec VBA
Dans Excel, aucune fonction intégrée ne peut gérer ce travail, mais le code VBA peut vous aider.
1. presse Alt + F11 clés, puis dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module pour créer un nouveau module vierge.
2. Copiez et collez le code ci-dessous dans le Module.
VBA: empilez 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. presse F5 clé pour exécuter le code, une boîte de dialogue apparaît pour vous permettre de sélectionner les colonnes que vous empilerez en une seule.
4. Cliquez OK, sélectionnez une cellule pour placer le résultat.
5. Cliquez OK pour finir. Maintenant, les colonnes sélectionnées ont été empilées dans une colonne.
Empilez les colonnes de gauche à droite dans une colonne avec Kutools for Excel
Si vous avez Kutools pour Excel installé dans Excel, vous pouvez utiliser le Transform Range utilitaire pour gérer ce travail.
Kutools pour Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. |
Après l'installation de Kutools for Excel, procédez comme suit:(Téléchargez gratuitement Kutools pour Excel maintenant!)
1. Sélectionnez les colonnes que vous souhaitez empiler, cliquez sur Kutools > Autonomie > Transform Range.
2. dans le Transform Range boîte de dialogue, vérifier Range to single row case à cocher, cliquez sur Ok.
3. Dans la boîte de dialogue contextuelle, sélectionnez une cellule pour placer le résultat, cliquez sur OK.
Maintenant, les colonnes ont été transformées en une seule ligne.
4. Sélectionnez la seule ligne, appuyez sur Ctrl + C pour le copier, et sélectionnez une autre cellule qui placera la colonne de pile, faites un clic droit pour sélectionner Transpose(T) dans le menu contextuel.
Maintenant, la ligne unique a été transposée en colonne de pile.
Gamme de transposition
Les meilleurs outils de productivité de bureau
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
- Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
- 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éeplus
- Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
- 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 ...
- 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 cellulesplus
- 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 PDFplus
- Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!



