Passer au contenu principal

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


flèche bleue bulle droite 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:



flèche bleue bulle droite 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 Courir 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:



Articles relatifs:

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations