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

Wie füge ich jede zweite Zeile / Zelle in Excel zusammen?

Wenn Sie eine Liste mit Daten haben und jede zweite Zeile oder Zelle wie unten gezeigt kombinieren möchten, wissen Sie, wie Sie dies erreichen können? In Excel können Sie Formel oder VBA verwenden, um alle anderen Zeilen oder Zellen zusammenzuführen.


Führen Sie jede zweite Zeile / Zelle mit der Formel in Excel zusammen

Führen Sie jede zweite Zeile / Zelle mit VBA zusammen

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie Ihren Favoriten die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und alles andere hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20 Textfunktionen: Nummer aus Textzeichenfolge extrahieren; Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umwandeln.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einem; Zusammenführen mehrerer Zellen / Zeilen / Spalten ohne Datenverlust; Doppelte Zeilen und Summe zusammenführen.
  • Werkzeuge teilen: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe für mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / gefilterte Zeilen; Zählen und summieren nach Hintergrundfarbe;; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Superfilter: Erstellen Sie erweiterte Filterschemata und wenden Sie sie auf alle Blätter an. Sortieren nach Woche, Tag, Häufigkeit und mehr; Filter durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2021 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

Pfeil blau rechte Blase Führen Sie jede zweite Zeile / Zelle mit der Formel in Excel zusammen

Wählen Sie eine leere Zelle und geben Sie ein =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (Ein $ 1 zeigt die ersten Daten in Ihrer Liste an. Sie können sie nach Bedarf ändern.) Drücken Sie die Eingabetaste. Ziehen Sie dann den Füllgriff, um den Bereich zu füllen, den Sie zum Anwenden dieser Formel benötigen. Siehe Screenshot:



Pfeil blau rechte Blase Führen Sie jede zweite Zeile / Zelle mit VBA zusammen

Wenn Sie an die Verwendung von VBA gewöhnt sind, können Sie auch die folgende VBA ausführen, um jede zweite Zeile zusammenzuführen.

1. Halt ALT Taste drücken und drücken F11 auf der Tastatur zum Öffnen a Microsoft Visual Basic für Anwendung Fenster.

2 Klicken Insert > Modulund kopieren Sie den VBA in das Modul.

VBA: Füge jede zweite Zeile / Zelle zusammen

Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
    For j = 1 To InputRng.Columns.Count
        OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
        Set OutRng = OutRng.Offset(0, 1)
    Next
    Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub         

 

3 Klicken Run um den VBA-Code auszuführen, und a KutoolsforExcel Das Dialogfeld wird geöffnet, in dem Sie einen Zellenbereich auswählen können, in dem alle anderen Zeilen zusammengeführt werden sollen. Siehe Screenshot:


4 Klicken OKIn einem weiteren Dialogfeld können Sie eine einzelne Zelle auswählen, um das zusammengeführte Ergebnis auszugeben. Siehe Screenshot:


5 Klicken OKund Sie können das Ergebnis sehen:



Relative Artikel:

Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL