Note: The other languages of the website are Google-translated. Back to English

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 pour 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 pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours

Après l'installation de Kutools pour 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 > Autonomie > 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


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Commentaires (3)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Pour contourner ce problème, vous pouvez procéder comme suit : En utilisant l'exemple ci-dessus, 1. Tapez « =a2 » en c2 et « =a3 » en d3. 2. Sélectionnez maintenant c2 à d3. 3. Faites glisser la poignée de remplissage parallèlement à toutes les données. 4. Supprimez maintenant la cellule a2 et déplacez les cellules vers le haut. 5. Nous devons maintenant convertir les résultats de la formule en valeurs calculées. Cela se fait facilement en copiant toutes les données, y compris les lignes vides, et en collant les valeurs directement au-dessus d'elles-mêmes. 6. Maintenant, vous pouvez simplement trier n'importe quelle colonne par ordre alphabétique pour afficher toutes les données.
Ce commentaire a été minimisé par le modérateur sur le site
Comment faire le contraire de cela ? Obtenir des informations sur deux colonnes dans une ligne ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Jas,
Pour faire le contraire, pour convertir les données de deux colonnes en une seule colonne, vous devez appliquer le code VBA ci-dessous :

Sous 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("Plages source :", xTitleId, Range1.Address, Type :=8)
Set Range2 = Application.InputBox("Convertir en (cellule unique):", xTitleId, Type:=8)
index_ligne = 0
Application.ScreenUpdating = Faux
Pour chaque Rng dans Range1.Rows
Rng.Copie
Range2.Offset(rowIndex, 0).PasteSpecial Coller :=xlPasteAll, Transpose :=True
rowIndex = rowIndex + Rng.Columns.Count
Suivant
Application.CutCopyMode = Faux
Application.ScreenUpdating = True
End Sub

S'il vous plaît essayez, j'espère que cela peut vous aider!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés