Comment grouper des colonnes sur Excel ?

Bonjour,

Je vous explique ma situation: Ci dessous un screen de mon Excel avec une centaines de colonnes de points de coordonnées selon X,Y et Z.

J'aimerais regrouper toutes les colonnes X sur une même colonne, pareil pour Y et pareil pour Z pour au final avoir seulement 3 colonnes.

Le problème étant qu'il y a une soixantaine de lignes et une centaine de colonnes, copier et coller directement en dessous me prendra énormément de temps.

J'aimerais alors savoir s'il existe une solution me permettant de faire cela automatiquement (ou presque).

image

En espérant avoir été clair, je vous remercie pour vos futures réponses !

Bonne journée/soirée à vous.

EDIT : sujet déplacé sur le forum excel

Bonjour et bienvenue,
Merci de joindre un fichier pour une aide adaptée du forum.
Cdlt.

Bonjour Kz11

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER] ainsi que ses fonctionnalités
qui vous aideront dans vos demandes et réponses sur ce forum.

Concernant votre demande, avec des raccourcis clavier cela peut aller très vite

Sinon voici un code à mettre dans un module

Sub DéplacerColonnes()
  Dim dCol As Long, Col As Long, dLig As Long
  With ActiveSheet
    ' Dernière colonne remplie de la feuille
    dCol = .Cells(1, Columns.Count).End(xlToLeft).Column
    ' Pour chaque groupe de 3 colonnes
    For Col = 4 To dCol Step 3
      ' Dernière ligne remplie de la colonnes
      dLig = .Cells(Rows.Count, Col).End(xlUp).Row
      ' Déplacer les 3 colonnes
      .Cells(2, Col).Resize(dLig - 1, 3).Cut _
        Destination:=.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    Next Col
    ' Supprimer les entêtes en trop
    .Range(.Cells(4, 1), .Cells(dCol, 1)).Clear
  End With
End Sub

Merci de votre participation

Cordialement

Bonjour,
Une proposition Power Query.
Cdlt.

14kz.xlsx (44.69 Ko)
Rechercher des sujets similaires à "comment grouper colonnes"