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

or

Wie transponiere ich Daten aus einer Spalte in eine einzelne Zelle in Excel?

Wenn Sie eine Liste von Daten in eine einzelne Zelle in einem Arbeitsblatt transponieren müssen, können Sie normalerweise die anwenden Verketten Funktion zum Zusammenführen der Liste von Zellen zu einer Zelle. Es ist jedoch komplex, wenn große Datenmengen kombiniert werden müssen. In diesem Artikel werde ich über einige schnelle Tricks sprechen, mit denen Sie diese Aufgabe in Excel lösen können.

Transponieren Sie Daten aus der Spalte mit einer benutzerdefinierten Funktion in eine einzelne Zelle

Transponieren Sie Daten aus der Spalte mit Kutools for Excel in eine einzelne Zelle


Mit Ausnahme der Funktion "Verketten" zum Zusammenführen einer Liste von Zellenwerten können Sie den folgenden VBA-Code anwenden, um das Ergebnis so schnell wie möglich zu erhalten.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Transponieren Sie Daten aus der Spalte in eine einzelne Zelle

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. Speichern und schließen Sie diesen Code, gehen Sie zum Arbeitsblatt zurück und geben Sie die folgende Formel ein: = Transposerange (A1: A10) in eine leere Zelle, um das Ergebnis zu platzieren, und drücken Sie Weiter Mit der Taste erhalten Sie alle Zellenwerte in einer Spalte, die sich in einer einzelnen Zelle befinden. Siehe Screenshot:

doc transponiert Zellen in eine Zelle 1

Hinweis: Im obigen Code, A1: A10 ist der Listenbereich, den Sie in eine einzelne Zelle transponieren möchten. Außerdem können Sie den zusammengeführten Inhalt durch andere Trennzeichen wie Komma, Bindestrich, Leerzeichen usw. trennen, indem Sie einfach das Komma im Skript ändern xStr = xStr & xCell.Value & ",".


Wenn Sie Kutools for Excel, mit seinem mächtigen Werkzeug-Kombinierenkönnen Sie Daten in einer Spalte, Zeile oder einem Bereich zu einer Zelle kombinieren.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen.

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor :( Kostenloser Download von Kutools für Excel jetzt! )

1. Wählen Sie die Datenspalte aus, die Sie in einer Zelle kombinieren möchten.

2. Klicken Sie Kutools > Zusammenführen & TeilenKombinieren Sie Zeilen, Spalten oder Zellen, ohne Daten zu verlieren, siehe Screenshot:

3. Wählen Sie im ausgeblendeten Dialogfeld aus In eine einzelne Zelle kombinieren unter dem So kombinieren Sie ausgewählte Zellen gemäß den folgenden Optionenund geben Sie dann ein Trennzeichen an, um den zusammengeführten Inhalt zu trennen. Siehe Screenshot:

doc transponiert Zellen in eine Zelle 3

4. Dann klick Ok or Apply Klicken Sie auf die Schaltfläche, und Sie erhalten bei Bedarf das folgende Ergebnis:

doc transponiert Zellen in eine Zelle 4 2 doc transponiert Zellen in eine Zelle 5

Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!


Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!

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 Formula Bar (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
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.
    Sophie · 2 years ago
    Hi,

    Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

    Thanks in advance!

    Function transposeRange(Rg As Range)
    'updateby Extendoffice 20151207
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
    If Not IsEmpty(xCell.Value) Then
    xStr = xStr & xCell.Value & ","
    End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
    End Function
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hello,Sophie,
      Could you give an example for your need, you can insert a screenshot here.
  • To post as a guest, your comment is unpublished.
    Eric · 3 years ago
    Thanks, this was very helpful.