KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe converteert of transponeert u kolommen en rijen naar één enkele kolom?

AuteurXiaoyang Wijzigingsdatum

Wanneer u werkt met een Excel-werkblad, komt u dit probleem misschien wel eens tegen: hoe converteert of transponeert u een gegevensbereik naar één enkele kolom? (Zie de schermafbeeldingen hieronder.) Ik deel nu drie snelle trucs om dit op te lossen.

oorspronkelijke gegevenspijl naar rechtsbereik converteren naar één kolom

Kolommen en rijen transponeren/converteren naar één enkele kolom met een formule

Kolommen en rijen transponeren/converteren naar één enkele kolom met Kutools voor Excel goed idee3

Kolommen en rijen transponeren/converteren naar één enkele kolom met VBA-code


Kolommen en rijen transponeren/converteren naar één enkele kolom met een formule

De volgende handige formule helpt u razendsnel een gegevensbereik om te zetten in één kolom. Volg deze stappen:

1. Definieer eerst een celnaam voor uw gegevensbereik. Selecteer het gegevensbereik dat u wilt converteren, klik er met de rechtermuisknop op en kies Naam definiëren in het contextmenu. Voer in het dialoogvenster Nieuwe naam de gewenste celnaam in en klik daarna op OK. Zie schermafbeelding:

definieer een bereiknaam voor het gegevensbereik

2. Nadat u de celnaam hebt opgegeven, klikt u op een lege cel – in dit voorbeeld cel E1 – en voert u de volgende formule in:=INDEX(MyData,1+INT((RIJ(A1)-1)/KOLOMMEN(MyData)),REST(RIJ(A1)-1+KOLOMMEN(MyData),KOLOMMEN(MyData))+1).

Opmerking: MyData is de celnaam van de geselecteerde gegevens; u kunt deze naar wens wijzigen.

3. Sleep de formule vervolgens naar beneden tot de foutmelding verschijnt — dan zijn alle gegevens uit het bereik getransponeerd naar één enkele kolom. Zie schermafbeelding:

 voer een formule in om het resultaat te verkrijgen


Kolommen en rijen transponeren/converteren naar één enkele kolom met Kutools voor Excel

Misschien is de formule te lang om te onthouden en heeft de VBA-code beperkingen voor u. Maak u dan geen zorgen! Ik introduceer u hier een eenvoudiger en multifunctioneler hulpmiddel: Kutools voor Excel, met de functie Transform Range, waarmee u dit probleem snel en gemakkelijk oplost.

Kutools voor Excelbiedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden verhoogd.Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, zodat databeheer moeiteloos verloopt.Gedetailleerde informatie over Kutools voor Excel...         Gratis proefversie...

Na gratis installerenvan Kutools voor Excel, gaat u als volgt te werk:

1. Selecteer het bereik dat u wilt transponeren.

2. Klik op Kutools > Transform Range, zie schermafbeelding:

klik op de functie Bereik transformeren van Kutools

3. Selecteer in het dialoogvenster Transform Range de optie Range to single column, zie schermafbeelding:

selecteer de optie Bereik naar één kolom

4. Klik vervolgens op OK en geef in het pop-upvenster een cel op waarin het resultaat moet worden geplaatst.

geef een cel op om het resultaat te plaatsen

5. Klik op OK en de gegevens uit meerdere kolommen en rijen worden getransponeerd naar één kolom.
de bereikgegevens zijn omgezet naar één kolom

Wilt u een kolom snel omzetten naar een bereik met vaste waarden? Gebruik dan de functie Transform Range om dit in een handomdraai voor elkaar te krijgen.
converteer één kolom naar een bereik met Kutools


Kolommen en rijen transponeren/converteren naar één enkele kolom met VBA-code

Met de volgende VBA-code kunt u ook meerdere kolommen en rijen samenvoegen tot één enkele kolom.

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende code in het venster Module.

Sub ConvertRangeToColumn()
'Updateby20131126
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Druk op de toets F5 om de code uit te voeren. Er verschijnt een dialoogvenster waarin u een bereik kunt selecteren om te converteren. Zie schermafbeelding:

vba-code om het gegevensbereik te selecteren

4. Klik vervolgens op Ok en er verschijnt nog een dialoogvenster waarin u één cel kunt selecteren voor het resultaat. Zie schermafbeelding:

vba-code om een cel te selecteren voor het resultaat

5. Klik op Ok, waarna de celinhoud van het bereik wordt geconverteerd naar een lijst in één kolom. Zie de schermafbeelding:

vba-code om het resultaat te verkrijgen


Gerelateerde artikelen:

Hoe verandert u een rij in een kolom in Excel?

Hoe transposeert of converteert u één enkele kolom naar meerdere kolommen in Excel?

Hoe transposeert of converteert u kolommen en rijen naar één enkele rij?

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

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.

ExcelWordOutlookTabsPowerPoint
  • 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