Note: The other languages of the website are Google-translated. Back to English

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?
colonnes de la pile de documents de gauche à droite 1

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

colonnes de la pile de documents de gauche à droite 2

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.
colonnes de la pile de documents de gauche à droite 3

4. Cliquez OK, sélectionnez une cellule pour placer le résultat.
colonnes de la pile de documents de gauche à droite 4

5. Cliquez OK pour finir. Maintenant, les colonnes sélectionnées ont été empilées dans une colonne.
colonnes de la pile de documents de gauche à droite 5


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.
colonnes de la pile de documents de gauche à droite 6

2. dans le Transform Range boîte de dialogue, vérifier Range to single row case à cocher, cliquez sur Ok.
colonnes de la pile de documents de gauche à droite 7

3. Dans la boîte de dialogue contextuelle, sélectionnez une cellule pour placer le résultat, cliquez sur OK.
colonnes de la pile de documents de gauche à droite 8

Maintenant, les colonnes ont été transformées en une seule ligne.
colonnes de la pile de documents de gauche à droite 9

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.
colonnes de la pile de documents de gauche à droite 10

Maintenant, la ligne unique a été transposée en colonne de pile.
colonne de pile de documents de gauche à droite 11


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.
onglet kte 201905

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!
bas de cabine
Commentaires (3)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Une triche Word pour faire la même chose :
- copier toutes vos lignes et lignes dans Excel
- coller sans dans un document Word
- ctrl + h (rechercher et remplacer)
- copier un espace de tabulation entre deux lignes
- coller dans la barre de recherche
- remplacer par des tabulations par des sauts de ligne "^l"

Toutes vos cellules sont maintenant en colonne dans votre document Word.
Copiez-les collez dans Excel : c'est fait !
Ce commentaire a été minimisé par le modérateur sur le site
Je vous serai éternellement reconnaissant. Merci beaucoup!
Ce commentaire a été minimisé par le modérateur sur le site
Est-ce que quelqu'un sait comment remplacer/coder en dur les colonnes (sans afficher la boîte de message pour la sélection) ? Donc, définissez le XSRg comme suit : Set xSRg = Range("A1").CurrentRegion.Select(qui ne fonctionne pas car d'incompatibilité de type) merci
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL