Comment transposer facilement et rapidement une plage et empiler des données dans Excel ?

Par exemple, certaines données sont affichées en groupes, et maintenant je souhaite transposer la plage et empiler les données de chaque colonne, comme le montre la capture d'écran ci-dessous. Dans cet article, je vais présenter les méthodes pour accomplir cette tâche dans Excel.

Transposer et empiler des données avec VBA

Transposer et empiler des données avec Transpose Table Dimension de Kutools

Transposer et empiler des données avec VBA

Vous pouvez appliquer un code VBA pour transposer et empiler des données.

1. Sélectionnez les données à l'exception des en-têtes de colonnes, puis appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code ci-dessous dans le Module.

VBA : Transposer et Empiler des données

Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub

3. Appuyez sur F5 , et ensuite les données auront été transposées et empilées. Voir la capture d'écran :

Remarque : Dans le code VBA, A indique que les données transposées seront placées dans la colonne A de la feuille active et remplaceront les données originales de la colonne A.

Transposer et empiler des données avec Transpose Table Dimension de Kutools

Si vous souhaitez transposer rapidement et facilement une plage et empiler des données sans utiliser de code VBA, vous pouvez appliquer l'utilitaire Transpose Table Dimension de Kutools pour Excel.

1. Sélectionnez les données que vous utilisez, cliquez sur Kutools > Plage > Convertir la dimension du tableau. Voir la capture d'écran :

2. Dans la boîte de dialogue, cochez Convertir un tableau bidimensionnel en un tableau unidimensionnel et sélectionnez une cellule où vous souhaitez placer les données transposées dans Plage de sortie (cellule unique) la zone de texte. Voir la capture d'écran :

3. Cliquez sur Ok. Maintenant, la plage a été transposée et empilée en colonnes.

Démo : Transposer une plage et empiler des données avec Transpose Table Dimension de Kutools