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
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la 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 facilite grandement votre travail
- Activez la modification 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é de50 %, et réduit des centaines de clics de souris pour vous chaque jour !