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
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 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: