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
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement 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 chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels