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.
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
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.
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.
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:
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:
5. Cliquez OK, et vous pouvez voir le résultat indiqué ci-dessous:
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:
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:
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:
4. Puis clique OK. Vous pouvez voir le résultat comme indiqué ci-dessous:
Pour plus d'informations sur la plage de transformation.
Articles relatifs:
Meilleurs outils de productivité bureautique
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...
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!