Generell gilt, dass die TRANSPOSE Funktion kann oft verwendet werden, um Zeilen in Spalten umzuwandeln. Ergebnisse, die von bestimmten Kriterien abhängen, wie z.B. eindeutige Werte, werden jedoch nicht zurückgegeben. In diesem Tutorial zeigen wir Ihnen, wie Sie Zeilen in Spalten umwandeln, basierend auf Kriterien in Excel.

Download Arbeitsbuch Praxis

Laden Sie dieses Übungsheft herunter, um zu üben, während Sie diesen Artikel lesen.

2 praktische Methoden zum Transponieren von Zeilen in Spalten anhand von Kriterien in Excel

In der folgenden Abbildung ist ein Datensatz mit mehreren Produkten und ihren Mengen dargestellt. Die Die Zeilen werden dann in Spalten umgewandelt. Wir werden die Zeilen anhand der Kriterien in Spalten umwandeln der eindeutigen Werte, da es einige doppelte Einträge in einer separaten Zelle gibt. Zunächst verwenden wir die INDEX , MATCH , COUNTIF , IF und IFERROR Funktionen, um Formeln zu erstellen, und führen eine VBA Code, um das Gleiche zu erreichen.

1. eine Formel mit den Funktionen INDEX, MATCH und COUNTIF anwenden, um Zeilen in Spalten auf der Grundlage von Kriterien in Excel zu transponieren

Zu Beginn werden wir die Formeln der INDEX , MATCH , COUNTIF , IF und IFERROR Funktionen mit Arrays.

Schritt 1: Einfügen der Funktionen INDEX, MATCH und COUNTIF

• In der Zelle E5 geben Sie die folgende Formel ein, um die einzelnen Produkte zu erhalten.

Schritt 2: Array anwenden

• Um die Formel mit einem Array anzuwenden, drücken Sie Strg + Schicht + Eingabe

• Daher erhalten Sie das erste eindeutige Ergebnis.

Schritt 3: Zellen automatisch ausfüllen

• Um alle eindeutigen Werte zu erhalten, verwenden Sie die AutoFill Handle Tool zum automatischen Ausfüllen der Spalte.

Schritt 4: Eingabe der IFERROR-Funktionen

• Um den Zeilenwert von Mengen in Spalten zu transponieren, schreiben Sie die folgende Formel.

Schritt 5: Array anwenden

• Um ein Feld einzufügen, drücken Sie Strg + Schicht + Eingabe .

• Infolgedessen sind die Zellen F5 zeigt den ersten transponierten Wert an, wie in der folgenden Abbildung zu sehen ist.

• Nach unten ziehen mit der AutoFill Handle Tool um die Spalte automatisch auszufüllen.

• Füllen Sie schließlich die Zeilen automatisch mit dem AutoFill Handle Tool .
• Daher werden alle transponierten Zeilen in Spalten umgewandelt, wie in der folgenden Abbildung zu sehen ist.

Weiterlesen: Transponieren mehrerer Zeilen in einer Gruppe in Spalten in Excel

Ähnliche Lektüre

• Transponieren von doppelten Zeilen in Spalten in Excel (4 Möglichkeiten)
• Excel VBA: Mehrere Zeilen in einer Gruppe in Spalten umwandeln
• Transponieren mehrerer Spalten in eine Spalte in Excel (3 praktische Methoden)
• Umkehrung der Transposition in Excel (3 einfache Methoden)

2. einen VBA-Code zum Transponieren von Zeilen in Spalten anhand von Kriterien in Excel ausführen

Schritt 1: Ein Modul erstellen

• Drücken Sie erstens Alt + F11 zum Start VBA-Makro .
• Klicken Sie auf einfügen. .
• So erstellen Sie eine Modul wählen Sie die Modul Option.

Schritt 2: VBA-Codes eingeben

• Fügen Sie Folgendes ein VBA

 Sub TransposeRows() 'Variablen definieren Dim RowsNumber As Long Dim p As Long Dim xColCr As String Dim xColumn As New Collection Dim InputRng As Range Dim OutputRng As Range Dim RngText As String Dim CountRow As Long Dim xRowRg As Range On Error Resume Next 'Werte und Eingabefeld für Eingabebereich festlegen RngText = ActiveWindow.RangeSelection.Address Set InputRng = Application.InputBox("Select Your InputBereich für 2 Spalten:", "ExcelWIKI", RngText, , , , , 8) Set InputRng = Application.Intersect(InputRng, InputRng.Worksheet.UsedRange) 'Bedingung anwenden, um nur 2 Spalten zu zählen und ein Meldungsfeld anzuzeigen, um auf die Auswahl von nur zwei Spalten hinzuweisen If InputRng Is Nothing Then Exit Sub If (InputRng.Columns.Count 2) Or _ (InputRng.Areas.Count> 1) Then MsgBox "Der angegebene Bereich ist nur für 2 Spalten ",, "ExcelWIKI" Exit Sub End If 'Werte und Eingabefeld für Eingabebereich festlegen Set OutputRng = Application.InputBox("Wählen Sie Ihren Ausgabebereich (eine Zelle):", "ExcelWIKI", RngText, , , , 8) If OutputRng Is Nothing Then Exit Sub Set OutputRng = OutputRng.Range(1) 'Zeilen zählen RowsNumber = InputRng.Rows.Count 'Apply For loop For p = 2 To RowsNumber xColumn.Add InputRng.Cells(p, 1).Value, InputRng.Cells(p,1).Value Next Application.ScreenUpdating = False For p = 1 To xColumn.Count xColCr = xColumn.Item(p) OutputRng.Offset(p, 0) = xColCr InputRng.AutoFilter Field:=1, Criteria1:=xColCr Set xRowRg = InputRng.Range("B2:B" & RowsNumber).SpecialCells(xlCellTypeVisible) If xRowRg.Count> CountRow Then CountRow = xRowRg.Count 'Kopieren und Einfügen mit Transposition InputRng.Range("B2:B" &RowsNumber).SpecialCells(xlCellTypeVisible).Copy OutputRng.Offset(p, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True Application.CutCopyMode = False Next OutputRng = InputRng.Cells(1, 1) OutputRng.Offset(0, 1).Resize(1, CountRow) = InputRng.Cells(1, 2) InputRng.Rows(1).Copy OutputRng.Resize(1, CountRow + 1).PasteSpecial Paste:=xlPasteFormatsInputRng.AutoFilter Application.ScreenUpdating = True End Sub 

Schritt 3: Führen Sie das Programm aus

• Erstens, speichern und drücken Sie F5 um das Programm auszuführen.
• Wählen Sie Ihren Datensatz über die Kopfzeile aus.
• Klicken Sie auf OK .

• Wählen Sie eine Zelle aus, um die Ausgabe
• Klicken Sie dann auf OK .

• Als Ergebnis erhalten Sie Ergebnisse, bei denen Zeilen und Spalten vertauscht sind, wie in der folgenden Abbildung dargestellt.

Lesen Sie mehr: Wie man mit Excel VBA Zeilen in Spalten umwandelt (4 ideale Beispiele)

Schlussfolgerung

Ich hoffe, dieser Artikel hat Ihnen eine Anleitung gegeben, wie man Zeilen in Spalten umwandeln, basierend auf Kriterien in Excel All diese Verfahren sollten Sie lernen und auf Ihren Datensatz anwenden. Werfen Sie einen Blick in die Übungsmappe und testen Sie diese Fähigkeiten. Dank Ihrer wertvollen Unterstützung sind wir motiviert, weiterhin Tutorials wie dieses zu erstellen.

Wenn Sie Fragen haben, können Sie uns diese gerne stellen, und Sie können auch gerne Kommentare im unten stehenden Abschnitt hinterlassen.

Wir, die Exzellent Team, sind immer ansprechbar für Ihre Fragen.

Bleiben Sie bei uns & lernen Sie weiter.