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 sur une seule 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 sur une seule colonne avec Kutools for Excel
Si vous avez Kutools for Excel installé dans Excel, vous pouvez utiliser le Transform Range utilitaire pour gérer ce travail.
Kutools for 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 > Catégorie > 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
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!