Comment fusionner chaque seconde ligne ou cellule dans Excel ?

Si vous avez une liste de données et que vous souhaitez combiner toutes les lignes ou cellules alternées comme indiqué ci-dessous, savez-vous comment procéder ? Dans Excel, vous pouvez utiliser une formule ou VBA pour fusionner chaque autre ligne ou cellule.

Utiliser une formule pour fusionner chaque seconde ligne ou cellule dans Excel

Utiliser le code VBA pour fusionner chaque seconde ligne ou cellule dans Excel

Utiliser une formule pour fusionner chaque seconde ligne ou cellule dans Excel

Sélectionnez une cellule vide, entrez la formule suivante et appuyez sur la touche "Entrée".

=OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0)

Ensuite, faites glisser la poignée de recopie vers le bas pour remplir la plage à laquelle vous souhaitez appliquer cette formule.

Utiliser le code VBA pour fusionner chaque seconde ligne ou cellule dans Excel

Si vous êtes habitué à utiliser VBA, vous pouvez également exécuter le code VBA ci-dessous pour fusionner chaque autre ligne.

1. Maintenez enfoncé le bouton "ALT" et appuyez sur "F11" du clavier pour ouvrir une fenêtre "Microsoft Visual Basic for Applications".

2. Cliquez sur "Insérer" > "Module", puis copiez le code VBA dans le module.

VBA : Fusionner chaque autre ligne/cellule

Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
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)
For i = 1 To InputRng.Rows.Count Step 2
    For j = 1 To InputRng.Columns.Count
        OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
        Set OutRng = OutRng.Offset(0, 1)
    Next
    Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub         

3. Cliquez sur "Exécuter" pour lancer le code VBA, et une boîte de dialogue "KutoolsforExcel" s'affiche pour vous permettre de sélectionner une plage de cellules que vous souhaitez fusionner pour chaque autre ligne. Voir capture d'écran :

4. Cliquez sur "OK", une autre boîte de dialogue s'affiche pour vous permettre de sélectionner une cellule unique où placer le résultat fusionné. Voir capture d'écran :

5. Cliquez sur "OK", et vous pouvez voir le résultat :

Articles connexes :

• Sélectionner chaque autre ligne ou toutes les n-ièmes lignes dans Excel
• Copier chaque autre ligne
• Supprimer chaque autre ligne