Direkt zum Inhalt

Wie kann man den Inhalt mehrerer Zellen kombinieren, ohne Daten in Excel zu verlieren?

Wir können Zellen und deren Inhalt in Microsoft Excel häufig kombinieren. Finden Sie jedoch heraus, wie Sie den Zellinhalt am einfachsten kombinieren können? Hier werden wir darüber sprechen, wie man Zellinhalte in Excel einfach und schnell kombiniert.

Kombinieren Sie mehrere Zellen zu einer Zelle mit VBA-Code
Kombinieren Sie mit Kutools for Excel mehrere Zellen zu einer Zelle, ohne Daten zu verlieren


Kombinieren Sie mehrere Zellen zu einer Zelle mit VBA-Code

Der folgende VBA-Code kann Ihnen helfen, mehrere Zellen zu einer Zelle zu kombinieren, und Sie können den Code mit den folgenden Schritten anwenden:

1. Klicken Sie Entwickler:in / Unternehmen > Visual BasicEin neuer Microsoft Visual Basic für Anwendungen Fenster wird angezeigt, klicken Sie auf Insert > Modulund geben Sie den folgenden Code in das Modul ein:

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. Dann klick doc-multiplizieren-berechnen-3 Schaltfläche, um den Code auszuführen. Ein Dialogfeld wird angezeigt, in dem Sie einen Bereich für die Arbeit mit dem VBA auswählen können. Siehe Screenshots:

3. Klicken Sie OkIn einem weiteren Dialogfeld können Sie den Separator angeben. Siehe Screenshot:

doc Zelleninhalt kombinieren 2

4. Klicken Sie OkAnschließend werden die Zelleninhalte im ausgewählten Bereich zu einer Zelle zusammengefasst. Siehe Screenshot:

doc Zelleninhalt kombinieren 3


Kombinieren Sie mit Kutools for Excel mehrere Zellen zu einer Zelle, ohne Daten zu verlieren

Wenn Sie Kutools for Excel Bei der Installation können Sie den Zelleninhalt mehrerer Spalten oder Zeilen bequem ohne Verwendung von Formeln kombinieren.

1. Wählen Sie die Zellen aus, in denen Sie die Daten zusammenführen möchten. Wenden Sie dieses Dienstprogramm an, indem Sie auf klicken Kutoolen > Zusammenführen & Teilen > Kombinieren Sie Zeilen, Spalten oder Zellen, ohne Daten zu verlieren.

2. In dem Spalten oder Zeilen kombinieren Geben Sie im Dialogfeld die gewünschten Optionen an. Siehe Screenshot:

  • (1.) Wählen Sie In eine einzelne Zelle kombinieren für So kombinieren Sie ausgewählte Zellen gemäß den folgenden Optionen;
  • (2.) Geben Sie ein Trennzeichen für die kombinierten Daten an. Sie können jeden Inhalt durch Leerzeichen, nichts, Semikolon oder bestimmten Text trennen. Sie können den kombinierten Inhalt auch in einer neuen Zeile anzeigen.

doc Zelleninhalt kombinieren 5

3. Dann klick OK or Jetzt bewerbenAlle Daten in mehreren Zellen wurden zu einer Zelle zusammengeführt. Siehe Screenshot:

Hinweis: Dieses Dienstprogramm kann auch dazu beitragen, Zellen ausgewählter Spalten zu kombinieren. Sie können Vor- und Nachnamen in einer einzigen Zelle mit vollständigem Namen kombinieren (siehe Abbildung unten).

Dann können Sie sehen, dass die Vor- und Nachnamen kombiniert sind und sich in den vollständigen Namenszellen befinden.

  Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.


Ähnliche Artikel


Demo: Kombinieren / Zusammenführen mehrerer Zellen zu einer, ohne Daten zu verlieren

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!

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