Comment diviser une colonne toutes les deux lignes dans Excel?

Par exemple, j'ai une longue liste de données, et maintenant, je veux diviser la colonne en deux listes de manière égale par toutes les autres lignes, comme illustré ci-dessous. Existe-t-il de bons moyens de gérer cette tâche dans Excel?

Diviser une colonne toutes les deux lignes avec des formules

Divisez une colonne toutes les deux lignes avec le code VBA

Divisez une colonne toutes les deux lignes avec Kutools for Excel

Diviser une colonne toutes les deux lignes avec des formules

Les formules suivantes peuvent vous aider à diviser rapidement une colonne en deux colonnes par une ligne sur deux, procédez comme suit:

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

2. Faites ensuite glisser la poignée de remplissage vers le bas jusqu'à ce que les erreurs s'affichent dans les cellules, voir capture d'écran:

3. Entrez ensuite une autre formule dans la cellule D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)et faites glisser la poignée de remplissage vers les cellules jusqu'à ce que les valeurs d'erreur apparaissent et que les valeurs de colonne aient été divisées en deux colonnes toutes les deux lignes, voir capture d'écran:

Divisez une colonne toutes les deux lignes avec le code VBA

Si vous êtes intéressé par le code VBA, ici, je peux vous parler d'un code pour résoudre ce problème.

1. Maintenez le ALT + F11 clés dans Excel, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: divisez une colonne en deux colonnes toutes les deux lignes

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. Puis appuyez F5 clé 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 fractionner, voir capture d'écran:

4. Et cliquez sur OK, une autre boîte de dialogue apparaît pour vous permettre de sélectionner une cellule pour mettre le résultat, voir capture d'écran:

5. Puis clique OK, et la colonne a été divisée en deux colonnes par une ligne sur deux. Voir la capture d'écran:

Divisez une colonne toutes les deux lignes avec Kutools for Excel

Si vous souhaitez en savoir plus sur de nouvelles choses, je peux vous recommander un outil puissant -Kutools for Excel, Avec son Transformer la gamme utilitaire, vous pouvez rapidement convertir une seule ligne ou colonne en une plage de cellules et vice versa.

Après l'installation de Kutools for Excel, veuillez procéder comme suit :( Téléchargez gratuitement Kutools pour Excel maintenant )

1. Sélectionnez les données de colonne que vous souhaitez diviser en deux colonnes par ligne sur deux.

2. Puis clique Kutools > Catégorie > Transformer la gamme, voir capture d'écran:

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

4. Puis clique Ok bouton, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner une cellule dans laquelle vous souhaitez afficher le résultat, voir capture d'écran:

5Cliquez sur OK, les données de la liste ont été divisées en deux colonnes toutes les deux lignes.

Cliquez pour en savoir plus sur cet utilitaire de transformation de plage.

Téléchargez gratuitement Kutools pour Excel maintenant