Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

Comment combiner le contenu de plusieurs cellules sans perdre de données dans Excel?

Nous pouvons combiner fréquemment des cellules et leur contenu dans Microsoft Excel. Cependant, trouvez-vous le moyen le plus simple de combiner le contenu des cellules? Ici, nous allons parler de la façon de combiner facilement et rapidement le contenu des cellules dans Excel.

Combinez plusieurs cellules dans une cellule avec le code VBA
Combinez plusieurs cellules en une seule cellule avec Kutools for Excel sans perdre de données


Combinez plusieurs cellules dans une cellule avec le code VBA

Le code VBA suivant peut vous aider à combiner plusieurs cellules dans une seule cellule et vous pouvez appliquer le code avec les étapes suivantes:

1. Cliquez Développeur > Visual Basic, Un nouveau Microsoft Visual Basic pour les applications la fenêtre s'affichera, cliquez sur insérer > Moduleet entrez le code suivant dans le module:

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. Puis clique doc-multiplier-calcul-3bouton pour exécuter le code. Une boîte de dialogue apparaît pour vous permettre de sélectionner une plage pour travailler avec le VBA. Voir les captures d'écran:

3. Cliquez Ok, une autre boîte de dialogue s'affiche pour vous permettre de spécifier le séparateur. Voir la capture d'écran:

doc combiner le contenu de la cellule 2

4. Cliquez Ok, puis le contenu des cellules de la plage sélectionnée est combiné dans une cellule. Voir la capture d'écran:

doc combiner le contenu de la cellule 3


Combinez plusieurs cellules en une seule cellule avec Kutools for Excel sans perdre de données

Si vous avez Kutools pour Excel installé, vous pouvez combiner facilement le contenu des cellules de plusieurs colonnes ou lignes sans utiliser de formules.

1. Sélectionnez les cellules dont vous souhaitez fusionner les données. Et appliquez cet utilitaire en cliquant sur Kutools > Fusionner et fractionner > Combinez des lignes, des colonnes ou des cellules sans perdre de données.

2. Dans le Combiner des colonnes ou des lignes boîte de dialogue, spécifiez les options dont vous avez besoin. Voir la capture d'écran:

  • (1.) Sélectionnez Combinez en une seule cellule sous Pour combiner les cellules sélectionnées selon les options suivantes;
  • (2.) Spécifiez un séparateur pour les données combinées. Vous pouvez séparer chaque contenu par un espace, rien, un point-virgule ou un texte spécifique. Et vous pouvez également afficher le contenu combiné dans une nouvelle ligne.

doc combiner le contenu de la cellule 5

3. Puis clique OK or Appliquer, toutes les données de plusieurs cellules ont été fusionnées dans une seule cellule. Voir la capture d'écran:

Remarque: cet utilitaire peut également aider à combiner les cellules des colonnes sélectionnées. Vous pouvez combiner le prénom et le nom dans une seule cellule de nom complet comme illustré ci-dessous.

Ensuite, vous pouvez voir que les prénoms et les noms sont combinés et situés dans les cellules de nom complet.

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.


Articles Relatifs


Démo: combinez / fusionnez plusieurs cellules en une seule sans perdre de données


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition 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é de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    jennifer · 5 years ago
    my earlier query is about this vba:Sub MergeOneCell()
    'Updateby20140128
    Dim Rng As Range
    Dim WorkRng As Range
    Dim Sigh As String
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    Sigh = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2)
    xOut = ""
    Application.DisplayAlerts = False
    For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
    Next
    With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
    End With
    Application.DisplayAlerts = True
    End Sub
    Between, what does the type here, "8" & "2" refers to
  • To post as a guest, your comment is unpublished.
    jennifer · 5 years ago
    how repeat the process if i have 4 different reference and need to combine them one after the other
  • To post as a guest, your comment is unpublished.
    TJ · 6 years ago
    Awesome! Greatly helps! Thank you so much!
  • To post as a guest, your comment is unpublished.
    priya · 6 years ago
    how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
  • To post as a guest, your comment is unpublished.
    Tom · 7 years ago
    Thanks very much - was a big help!
  • To post as a guest, your comment is unpublished.
    Romilla W · 8 years ago
    Thamks a lot for the code. Was very helpful.
  • To post as a guest, your comment is unpublished.
    Damon R · 8 years ago
    Very helpful thank you took me a while to find it but was just what I needed. Note in the VBA code if you want to seperate data with a semicolon, comma or some other charater in the "delim = " "
    " field put you charater betwen the quotes example: delim = ";".

    Thanks again.