Comment fusionner deux colonnes en une seule en alternant leurs valeurs dans Excel ?
Voici deux colonnes dans une feuille de calcul. Comment les fusionner rapidement en une seule colonne avec des valeurs alternées, comme illustré dans la capture d’écran ci-dessous, sans avoir à réorganiser chaque valeur manuellement ?
Fusionner deux colonnes en une seule avec des valeurs alternées à l’aide d’un code VBA
Fusionner deux colonnes en une seule avec des valeurs alternées à l’aide de Kutools pour Excel 
Fusionner deux colonnes en une seule avec des valeurs alternées à l’aide d’un code VBA
Pour fusionner deux colonnes en une seule avec des valeurs alternées, Excel ne propose aucune fonction intégrée — seule une solution VBA permet d’y parvenir.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications. Cliquez sur Insertion > Module afin de créer un nouveau module vierge.
2. Copiez et collez le code ci-dessous dans le module.
VBA : Fusionner deux colonnes en une seule avec des valeurs alternées
Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNum = 1 To xSRg.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Item(xFNum).Value
xI = xI + 1
Next xFNum
Application.ScreenUpdating = True
End Sub3. Appuyez sur la touche F5 et sélectionnez les deux colonnes que vous souhaitez fusionner dans la boîte de dialogue qui s’affiche.
4. Cliquez sur OK, puis, dans la deuxième boîte de dialogue, sélectionnez une cellule où placer le résultat.
5. Cliquez sur OK. Les deux colonnes sélectionnées ont désormais été fusionnées en une seule, avec des valeurs alternées.
Fusionner deux colonnes en une seule avec des valeurs alternées à l’aide de Kutools pour Excel
Si vous avez installé Kutools pour Excel dans Excel, son utilitaire Transform Range vous permet d’accomplir cette tâche en seulement trois étapes simples.
1. Sélectionnez les colonnes (deux ou plus) que vous souhaitez fusionner, puis cliquez sur Kutools > Transform Range.
2. Dans la boîte de dialogue Transform Range, cochez l’option Range to single column, puis cliquez sur OK.
3. Sélectionnez, dans la boîte de dialogue qui s’affiche, une cellule où vous souhaitez insérer le résultat. Cliquez ensuite sur OK.
Les colonnes ont désormais été fusionnées en une seule, avec des valeurs alternant entre les deux.
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
Démo : Transposer une plage à l’aide de Kutools pour Excel
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels