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

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 HinzufügenAlle 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.


Verwandte Artikel


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


Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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 täglich Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (7)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sehr hilfreich, danke, es hat eine Weile gedauert, bis ich es gefunden habe, aber es war genau das, was ich brauchte. Beachten Sie im VBA-Code, wenn Sie Daten mit einem Semikolon, Komma oder einem anderen Zeichen im Feld "delim = " " " trennen möchten, setzen Sie Ihr Zeichen zwischen die Anführungszeichen. Beispiel: delim = ";". Danke noch einmal.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für den Code. War sehr hilfreich.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank - war eine große Hilfe!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie man 2 Zellen zusammenführt Bsp.:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Fantastisch! Hilft sehr! Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie wiederholen Sie den Vorgang, wenn ich 4 verschiedene Referenzen habe und sie nacheinander kombinieren muss
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Meine frühere Abfrage bezieht sich auf diese 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) Seufzer = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = False For Each Rng In WorkRng xOut = xOut & Rng.Value & Seufzer Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) End With Application.DisplayAlerts = True End Sub Between, was bedeutet der Typ hier, "8 " & "2" bezieht sich auf
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte