Combinez plusieurs colonnes en une seule sur Excel

L'utilisation de cette macro vous permettra de transposer ou de convertir en une seule colonne les données de plusieurs lignes et colonnes d'une feuille de calcul Microsoft Excel .

Convertir les lignes et les colonnes en une seule colonne

Supposons que vous disposiez des données suivantes dans une feuille de calcul Excel :

 480 000 600 000 720 000
520 000 650 000 780 000
300 000 375 000 450 000
432 000 540 000 648 000
260 000 325 000 390 000
304 000 380 000 456 000
340 000 425 000 510 000
304 000 380 000 456 000

Notre macro vous permettra de convertir les données ci-dessus afin qu’elles se lisent ainsi sur votre document:

 480 000
520 000
300 000
432 000
260 000
304 000
340 000
304 000
600 000
650 000
375 000
540 000
325 000
380 000
425 000
380 000
720 000
780 000
450 000
648 000
390 000
456 000
510 000
456 000 

Cette macro est programmée en supposant que vos données vont de la ligne 1 à la ligne 8 et des colonnes A à C. Notez que vous pouvez ajuster la macro pour qu'elle corresponde à votre ensemble de données exact.

Notez également que le test de macro est une macro opérationnelle, tandis que le fait d' annuler annule le résultat de la macro.

 Sous test ()
Dim j As Long, k As Long, r As Range, dest As Range
j = Plage ("A1"). Fin (xlToRight) .Colonne
Pour k = 1 à j
Définir r = Plage (Cellules (1, k), Cellules (1, k) .End (xlDown))
r.Copie
Définir dest = Cells (Rows.Count, "A"). End (xlUp) .Offset (3, 0)
dest.PasteSpecial
K suivant
End Sub
Sous annulation ()
Dim r As Range
Définir r = Plage ("a1"). Fin (xlDown). Décalage (1, 0)
Set r = Range (r, Cells (Rows.Count, "A"). End (xlUp))
r.EntireRow.Delete
End Sub