Wie kann man eine Adressliste schnell von Zeilen in Spalten transponieren?

Angenommen, Sie haben eine einzelne Liste mit Namen und Adressen, die Sie in Spalten umwandeln möchten, wie im folgenden Screenshot gezeigt. Excel hat keine integrierte Funktion dafür, aber dieser Artikel stellt einige schnelle Methoden vor, um das Problem zu lösen.

Adressliste per VBA transponieren

Adressliste mit Kutools für Excel transponieren

Adressliste per VBA transponieren

Um eine Adressliste von Zeilen in Spalten zu transponieren, können Sie einen VBA-Code anwenden.

1. Öffnen Sie das Blatt mit den Daten, die Sie transponieren möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Makrocode in das Modul ein. Siehe Screenshot:

VBA: Adressliste transponieren

Sub fixText()
'UpdatebyExtendoffice0170905
    Dim I As Integer
    Dim K As Integer
    Dim xRgS As Range
    Dim xRgD As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRgS = Application.InputBox("Select a range to transpose:", "KuTools For Excel", xAddress, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Select a cell to place result", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRgD(1).Offset(, 0).Value = "Name"
    xRgD(1).Offset(, 1).Value = "Address"
    xRgD(1).Offset(, 2).Value = "City/State"
    K = 1
    For I = 1 To xRgS.Rows.Count
        xRgD(1).Offset(K).Value = xRgS(I).Value
        xRgD(1).Offset(K, 1).Value = xRgS(I + 1).Value
        xRgD(1).Offset(K, 2).Value = xRgS(I + 2).Value
        K = K + 1
        I = I + 2
    Next
End Sub

3. Drücken Sie F5 , um den Code auszuführen, und ein Dialogfeld erscheint, das Sie auffordert, den gewünschten Datenbereich auszuwählen. Siehe Screenshot:

4. Klicken Sie OK, dann wählen Sie im nächsten Dialogfeld eine Zelle aus, um das transponierte Ergebnis zu platzieren. Siehe Screenshot:

5. Klicken Sie OK. Nun wurde die einzelne Liste in Spalten transponiert.

Adressliste mit Kutools für Excel transponieren

Wenn Sie Kutools für Excel haben, können Sie die Funktion Bereich transformieren anwenden, um die Adressliste schnell in Spalten zu transponieren.

1. Wählen Sie die Daten aus, die Sie transponieren möchten, klicken Sie auf Kutools > Bereich > Bereich transformieren. Siehe Screenshot:

2. Aktivieren Sie im erscheinenden Dialogfeld die Option Einzelne Spalte zu Bereich im Abschnitt Transformationsart und aktivieren Sie die Option Fester Wert und geben Sie die benötigte Zahl in das rechte Textfeld ein. Siehe Screenshot:

3. Klicken Sie Ok, und wählen Sie eine Zelle aus, in der Sie das transponierte Ergebnis platzieren möchten. Siehe Screenshot:

4. Klicken Sie OK. Die Adressliste wurde transponiert.

Demo: Adressliste mit Kutools für Excel transponieren