Passer au contenu principal

Comment déplacer toutes les autres lignes en colonne dans Excel

Avez-vous déjà essayé de déplacer toutes les autres données de ligne vers une colonne dans Excel, comme déplacer chaque ligne impaire vers une colonne et chaque ligne paire vers l'autre colonne, comme illustré ci-dessous. Ici, je trouve quelques astuces qui peuvent gérer ce problème.

doc-chaque-autre-ligne-à-colonne-1

Déplacer une ligne sur deux vers une colonne avec une formule

Déplacer une ligne sur deux en colonne avec VBA

Déplacez une ligne sur deux vers la colonne avec Kutools for Excel


flèche bleue bulle droite Déplacer une ligne sur deux vers une colonne avec une formule

Pour la plupart des utilisateurs d'Excel, l'utilisation d'une formule pour résoudre le problème dans Excel est le moyen le plus simple.

1. Sélectionnez une cellule à côté de vos données et saisissez cette formule = SI (ISEVEN (RANG (B2)), B2, "") (B2 indique les données que vous souhaitez obtenir) et appuyez sur Entrer puis faites glisser le remplissage automatique pour remplir la plage souhaitée, utilisez cette formule. Désormais, toutes les données de ligne sur deux ont été récupérées dans cette colonne.

doc-chaque-autre-ligne-à-colonne-2

2. Sélectionnez ensuite l'autre cellule à côté de la colonne ci-dessus et tapez cette formule = SI (ISODD (RANG (B3)), B3, "") (B3 correspond aux données que vous souhaitez y insérer), puis appuyez sur Entrer puis faites glisser le remplissage automatique pour remplir la plage souhaitée, utilisez cette formule. Désormais, chaque troisième ligne de données a été récupérée dans cette colonne.

doc-chaque-autre-ligne-à-colonne-3


flèche bleue bulle droite Déplacer une ligne sur deux en colonne avec VBA

Le VBA suivant peut également déplacer une ligne sur deux en colonne.

1. presse F11 + Alt touches ensemble sur le clavier pour ouvrir le Microsoft Visual Basic pour Applications fenêtre.

2. Puis clique insérer > Module pour insérer une nouvelle fenêtre de module. Et puis copiez le code VBA suivant dans la fenêtre.

VBA: déplacez toutes les autres lignes vers la colonne.

Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
    OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
    Set OutRng = OutRng.Offset(1, 0)
Next
End Sub

 

3. Cliquez Courir bouton ou F5 sur le clavier, et une boîte de dialogue apparaît pour vous permettre de sélectionner une plage à déplacer. Voir la capture d'écran:

doc-chaque-autre-ligne-à-colonne-4

4. Puis clique OK pour afficher l'autre boîte de dialogue pour sélectionner une cellule pour afficher le résultat. Voir la capture d'écran:

doc-chaque-autre-ligne-à-colonne-5

5. Cliquez OK, et vous pouvez voir le résultat indiqué ci-dessous:

doc-chaque-autre-ligne-à-colonne-6


flèche bleue bulle droite Déplacez une ligne sur deux vers la colonne avec Kutools for Excel

Outre les formules et VBA, si vous avez installé Kutools for Excel, vous pouvez utiliser son Transformer la gamme fonction pour déplacer rapidement une ligne sur deux vers la colonne.

Kutools for Excel comprend plus de 300 outils Excel pratiques. Essai gratuit sans limitation de 30 jours. Obtenez-le maintenant

1. Sélectionnez la plage que vous souhaitez déplacer une ligne sur deux, puis cliquez sur Kutools > Convertisseur de gamme > Transformer la gamme. Voir la capture d'écran:

doc-chaque-autre-ligne-à-colonne-7

2. dans le Transformer la gamme boîte de dialogue, vérifier Une seule colonne à la plage in Type de transformation section, et vérifiez Valeur fixe puis sélectionnez ou entrez 2 dans la liste de Lignes par enregistrement section. Voir la capture d'écran:

doc-chaque-autre-ligne-à-colonne-8

3. Cliquez Ok pour ouvrir une boîte de dialogue pour sélectionner une seule cellule pour afficher le résultat, voir capture d'écran:

doc-chaque-autre-ligne-à-colonne-9

4. Puis clique OK. Vous pouvez voir le résultat comme indiqué ci-dessous:

doc-chaque-autre-ligne-à-colonne-10

Pour plus d'informations sur la plage de transformation.


Articles relatifs:

Meilleurs outils de productivité bureautique

Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

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...

onglet kte 201905


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Perfect, thank you!
This comment was minimized by the moderator on the site
Thank you so much! this worked :)
This comment was minimized by the moderator on the site
What about converting every line in which there are words into columns, and not numbers?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations