Comment fusionner toutes les autres lignes / cellules dans Excel?
Si vous avez une liste de données et que vous souhaitez combiner toutes les autres lignes ou cellules comme indiqué ci-dessous, savez-vous comment le faire? Dans Excel, vous pouvez utiliser une formule ou VBA pour fusionner toutes les autres lignes ou cellules.
Fusionner toutes les autres lignes / cellules avec une formule dans Excel
Fusionner toutes les autres lignes / cellules avec VBA
- Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
- Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
- Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
- Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
- Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
- Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Sort par semaine, jour, fréquence et plus encore; Filtre par gras, formules, commentaire ...
- Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.
Fusionner toutes les autres lignes / cellules avec une formule dans Excel
Sélectionnez une cellule vide et tapez =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (Un $ 1 indique les premières données de votre liste, vous pouvez les modifier selon vos besoins) et appuyez sur la touche Entrée. Faites ensuite glisser la poignée de recopie pour remplir la plage dont vous avez besoin pour appliquer cette formule. Voir la capture d'écran:
Fusionner toutes les autres lignes / cellules avec VBA
Si vous avez l'habitude d'utiliser VBA, vous pouvez également exécuter le VBA ci-dessous pour fusionner toutes les autres lignes.
1. Tenez ALT bouton et appuyez F11 sur le clavier pour ouvrir un Microsoft Visual Basic pour Application fenêtre.
2. Cliquez insérer > Moduleet copiez le VBA dans le module.
VBA: Fusionner toutes les autres lignes / cellules
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 course pour exécuter le code VBA, et un KutoolsforExcel Une boîte de dialogue s'affiche pour vous permettre de sélectionner une plage de cellules que vous souhaitez fusionner toutes les autres lignes. Voir la capture d'écran:
4. Cliquez OK, une autre boîte de dialogue s'affiche pour vous permettre de sélectionner une seule cellule pour afficher le résultat fusionné. Voir la capture d'écran:
5. Cliquez OK, et vous pouvez voir le résultat:
