Déplacement de plusieurs ensembles de colonnes dans un seul ensemble de colonnes

Question

J'ai une feuille de calcul avec des colonnes de données dans A-B-C-D-E pour les données d'une seule personne. Ensuite, les mêmes en-têtes sont répétés dans les colonnes FGHiJ, pour les données d'une deuxième personne Ensuite, les mêmes en-têtes sont répétés dans les 5 colonnes suivantes, et cela continue pour 25 ensembles de colonnes (donc j'ai des données pour 25 personnes à travers). Il existe environ 50 lignes de ces données.

Les en-têtes de données sont les suivantes:

A-Nom
B-DOB
C-Level
D-Acct #
E-shirt Taille

F-Nom
G-DOB
H-niveau
I-Acct #
E-shirts Taille

répétition pour 25 ensembles

Je souhaite déplacer toutes les données de sorte que soit seulement se trouve dans les colonnes A-B-C-D-E. Je voudrais que tous les noms apparaissent dans la colonne A, tous les DOBs à apparaître dans la colonne B, etc.

J'ai vu quelque chose de semblable à ceci posté ici mais je ne comprends pas comment réécrire le code pour s'adapter à ma situation spécifique.

J'ai lutté avec ce problème pendant 3 ans et copié/collé tout à la main ce qui prend des heures. J'apprécierais vraiment n'importe quelle information sur comment automatiser ceci.

Merci!

Answer 1

il a besoin de jouer avec mais voici un début:

Sub CopySomeCells() 

    With Excel.ThisWorkbook.Sheets("myExample") 

     lastcellincolumnA = .Cells(.Rows.Count, 1).End(Excel.xlUp).Row 
     lastcellincolumnL = .Cells(.Rows.Count, 12).End(Excel.xlUp).Row 

     .Range("G1:L" & lastcellincolumnL).Copy 
     .Range("A" & (lastcellincolumnA + 1)).PasteSpecial Excel.xlValues 

    End With 

End Sub