Passer au contenu principal

Comment diviser une colonne toutes les deux lignes dans Excel?

doc divisé toutes les deux lignes 1

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


flèche bleue bulle droite 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 :

doc divisé toutes les deux lignes 2

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:

doc divisé toutes les deux lignes 3

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:

doc divisé toutes les deux lignes 4


flèche bleue bulle droite 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:

doc divisé toutes les deux lignes 5

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:

doc divisé toutes les deux lignes 6

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

doc divisé toutes les deux lignes 7


flèche bleue bulle droite 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.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours

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:

doc divisé toutes les deux lignes 9

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:

doc divisé toutes les deux lignes 10

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

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
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...

Description


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
How to do the opposite of this? Get two column info in one row ?
This comment was minimized by the moderator on the site
Hi, Jas,
To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

Sub ConvertRangeToColumn()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
As a workaround, you can do the following: Using the above example, 1. Type "=a2" in c2 and "=a3" in d3. 2. Now select c2 through d3. 3. Drag the fill handle parallel to all the data. 4. Now delete cell a2 and shift cells up. 5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself. 6. Now you can simply sort any of the column alphabetically to bring all the data up.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations