Passer au contenu principal

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

1Cliquez sur 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:

3Cliquez sur 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

4Cliquez sur 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 avec Kutools for Excel sans perdre de données

Si vous avez Kutools for 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

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement 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!

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
how repeat the process if i have 4 different reference and need to combine them one after the other
This comment was minimized by the moderator on the site
Awesome! Greatly helps! Thank you so much!
This comment was minimized by the moderator on the site
how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
This comment was minimized by the moderator on the site
Thanks very much - was a big help!
This comment was minimized by the moderator on the site
Thamks a lot for the code. Was very helpful.
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations