Wie kann man Adresslisten in Excel schnell von Zeilen in Spalten umsetzen?
Beispielsweise gibt es eine einzelne Liste, die mit Namen und Adressen kombiniert ist, und Sie müssen die Liste in Spalten konvertieren, wie im folgenden Screenshot gezeigt. In Excel gibt es keine integrierte Funktion, um damit umzugehen. In diesem Artikel kann ich jedoch einige Tricks zur schnellen Lösung vorstellen.
Adressliste durch VBA transponieren
Transponieren Sie die Adressliste von Kutools für Excel
Adressliste durch VBA transponieren
Um die Adressliste von Zeilen in Spalten zu transponieren, können Sie einen VBA-Code anwenden.
1. Aktivieren Sie das Blatt mit den Daten, die Sie transponieren möchten, und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden Makrocode in das ein Modul. 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 Wenn Sie die Taste drücken, um den Code auszuführen, wird ein Dialogfeld angezeigt, in dem Sie daran erinnert werden, den gewünschten Datenbereich auszuwählen. Siehe Screenshot:
4 Klicken OKWählen Sie dann im nächsten Dialogfeld eine Zelle aus, um das transponierte Ergebnis zu platzieren. Siehe Screenshot:
5 Klicken OK. Jetzt wurde die einzelne Liste in Spalten transponiert.
Transponieren Sie die Adressliste von Kutools für Excel
Wenn Sie Kutools for Excelkönnen Sie die anwenden Bereich transformieren Funktion zum schnellen Transponieren der Adressliste in Spalten.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
Nach der Installation Kutools für Excel, bitte gehen Sie wie folgt vor: (Kutools für Excel jetzt kostenlos herunterladen!)
1. Wählen Sie die Daten aus, die Sie transponieren möchten, und klicken Sie auf Kutoolen > Abdeckung > Bereich transformieren. Siehe Screenshot:
2. Überprüfen Sie im Dialogfeld "Herausspringen" Einzelne Spalte zum Bereich Option in Typ transformieren Abschnitt und überprüfen Fester Wert Option und geben Sie die gewünschte Nummer in das rechte Textfeld ein. Siehe Screenshot:
3 Klicken Okund wählen Sie eine Zelle aus, um das Ergebnis auszugeben. Siehe Screenshot:
4 Klicken OK. Die Adressliste wurde transponiert.
Demo
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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 jeden Tag Hunderte von Mausklicks für Sie!