Comment diviser une colonne à chaque autre ligne dans Excel ?

Par exemple, j'ai une longue liste de données et maintenant, je souhaite diviser la colonne en deux listes égales en prenant une ligne sur deux, comme le montre la capture d'écran suivante. Existe-t-il de bonnes méthodes pour accomplir cette tâche dans Excel ?

Diviser une colonne à chaque autre ligne avec des Formules

Diviser une colonne à chaque autre ligne avec du code VBA

Diviser une colonne à chaque autre ligne avec Kutools pour Excel

Diviser une colonne à chaque autre ligne avec des Formules

Les formules suivantes peuvent vous aider à diviser rapidement une colonne en deux colonnes en prenant une ligne sur deux. Veuillez procéder comme suit :

1. Entrez cette formule dans une cellule vide, C2 par exemple, =INDEX($A$2:$A$13,LIGNES(C$1:C1)*2-1), voir la capture d'écran :

2. Ensuite, faites glisser la poignée de recopie vers le bas jusqu'à ce que des erreurs apparaissent dans les cellules, voir la capture d'écran :

3. Ensuite, entrez une autre formule dans la cellule D2, =INDEX($A$2:$A$13,LIGNES(D$1:D1)*2), puis faites glisser la poignée de recopie vers le bas jusqu'à ce que des valeurs d'erreur apparaissent, et les valeurs de la colonne auront été divisées en deux colonnes en prenant une ligne sur deux, voir la capture d'écran :

Diviser une colonne à chaque autre ligne avec du code VBA

Si vous êtes intéressé par le code VBA, voici un code que je peux vous expliquer pour résoudre ce problème.

1. Maintenez les touches ALT + F11 enfoncées dans Excel, cela ouvre la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Diviser une colonne en deux colonnes à chaque autre ligne

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
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 OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub	

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la plage de données que vous souhaitez diviser, voir la capture d'écran :

4. Cliquez sur OK, une autre boîte de dialogue apparaît pour vous permettre de sélectionner une cellule où placer le résultat, voir la capture d'écran :

5. Cliquez ensuite sur OK, et la colonne a été divisée en deux colonnes à chaque autre ligne. Voir la capture d'écran :

Diviser une colonne à chaque autre ligne avec Kutools pour Excel

Si vous souhaitez découvrir de nouvelles fonctionnalités, je peux vous recommander un outil puissant - Kutools pour Excel. Avec son utilitaire Transformer la plage, vous pouvez rapidement convertir une seule ligne ou colonne en une plage de cellules et vice versa.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit :

1. Sélectionnez les données de la colonne que vous souhaitez diviser en deux colonnes à chaque autre ligne.

2. Cliquez ensuite sur Kutools > Plage > Transformer la plage, voir la capture d'écran :

3. Dans la boîte de dialogue Transformer la plage, sélectionnez Une seule colonne vers une plage sous Type de transformation, puis choisissez Valeur fixe et entrez 2 dans la zone de la section Lignes par enregistrement, voir la capture d'écran :

4. Cliquez ensuite sur le bouton Ok, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner une cellule où vous souhaitez afficher le résultat, voir la capture d'écran :

5. Cliquez sur OK, les données de la liste ont été divisées en deux colonnes à chaque autre ligne.

Cliquez ici pour en savoir plus sur cet utilitaire Transformer la plage.