Hoe transposeert u snel een adreslijst van rijen naar kolommen in Excel?
Stel dat u een enkele lijst met namen en adressen hebt die u wilt omzetten naar kolommen, zoals in de onderstaande schermafbeelding. Excel beschikt hier helaas niet over een ingebouwde functie voor, maar in dit artikel leest u over enkele snelle methoden om dit probleem eenvoudig op te lossen.
Transposeer Adreslijst met VBA
Transposeer Adreslijst met Kutools voor Excel
Transposeer Adreslijst met VBA
Om de Adreslijst van rijen naar kolommen te transponeren, kunt u eenvoudig een VBA-code gebruiken.
1. Open het werkblad met de gegevens die u wilt transponeren en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de onderstaande macrocode in de Module. Zie schermafbeelding:
VBA: Transponeer Adreslijst
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. Druk op F5 om de code uit te voeren. Vervolgens verschijnt een dialoogvenster waarin u wordt gevraagd het gegevensbereik te selecteren dat u wilt gebruiken. Zie schermafbeelding:
4. Klik op OK en selecteer in het volgende dialoogvenster een cel om het getransponeerde resultaat te plaatsen. Zie schermafbeelding:
5. Klik op OK. De enkele lijst is nu getransponeerd naar kolommen.
Transponeer Adreslijst met Kutools voor Excel
Als u Kutools voor Excel hebt, kunt u de functie Bereik transformeren gebruiken om een adreslijst snel naar kolommen te transponeren.
1. Selecteer de gegevens die u wilt transponeren en klik op Kutools > Bereik > Bereik transformeren. Zie schermafbeelding:
2. In het dialoogvenster dat verschijnt, vinkt u in het gedeelte Transformeertype de optie Enkele kolom naar bereik aan, vinkt u de optie Vaste waarde aan en typt u het gewenste getal in het tekstvak rechts. Zie schermafbeelding:
3. Klik op Ok en kies een cel waar u het getransponeerde resultaat wilt plaatsen. Zie de schermafbeelding:
4. Klik op OK. De adreslijst is getransponeerd.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Demo: Transponeer Adreslijst met Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins