Note: The other languages of the website are Google-translated. Back to English

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-3 bouton 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
Commentaires (7)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Très utile, merci, j'ai mis du temps à le trouver, mais c'était exactement ce dont j'avais besoin. Notez dans le code VBA si vous souhaitez séparer les données par un point-virgule, une virgule ou un autre caractère dans le champ "delim = " " " mettez votre caractère entre les guillemets exemple: delim = ";". Merci encore.
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup pour le code. A été très utile.
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup - a été d'une grande aide !
Ce commentaire a été minimisé par le modérateur sur le site
comment fusionner 2 cellules ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
Ce commentaire a été minimisé par le modérateur sur le site
Génial! Aide grandement ! Merci beaucoup!
Ce commentaire a été minimisé par le modérateur sur le site
comment répéter le processus si j'ai 4 références différentes et que j'ai besoin de les combiner l'une après l'autre
Ce commentaire a été minimisé par le modérateur sur le site
ma requête précédente concerne ce 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 pour chaque Rng dans 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, qu'est-ce que le type ici, "8 " & "2" fait référence à
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés