Hoe converteert u kolommen en rijen naar één enkele rij?
Hoe voegt u meerdere rijen en kolommen samen tot één lange rij? Misschien lijkt dit eenvoudig, omdat u ze handmatig één voor één kunt kopiëren en samenvoegen. Maar bij honderden rijen en kolommen wordt dat al snel tijdrovend en vervelend. Gelukkig zijn er een paar snelle trucs om dit probleem vlot op te lossen.
Kolommen en rijen converteren naar één enkele rij met een formule
Kolommen en rijen converteren naar één enkele rij met VBA-code
Kolommen en rijen converteren naar één enkele rij met Kutools voor Excel
Kolommen en rijen converteren naar één enkele rij met een formule
Stel dat u een gegevensbereik hebt zoals op de volgende schermafbeelding is weergegeven; met een lange formule kunt u deze gegevens omzetten naar één rij op een nieuw werkblad.
Pas de volgende formule toe:
1. Klik in een nieuw werkblad van het huidige werkboek op cel A1 en kopieer en plak deze formule:=OFFSET(Sheet1!$A$1,((RIJ()-1)*5)+(AFRONDEN.BENEDEN(KOLom()-1,4)/4),(KOLom()-1)-(AFRONDEN.BENEDEN(KOLom()-1,4)))
Opmerking: Sheet1!$A$1 verwijst naar het werkblad en het bereik dat u wilt gebruiken.
RIJ()-1)*5 in bovenstaande formule: 5 staat voor het rijnummer; en KOLom()-1,4)/4, waarbij de 4 staat voor het kolomnummer. U kunt deze waarden naar wens aanpassen.
2. Sleep vervolgens de vulgreep naar rechts totdat het getal 0 verschijnt. Op dat moment zijn alle gegevens uit het bereik getransponeerd naar één enkele rij in een nieuw werkblad. Zie schermafbeelding:
Kolommen en rijen converteren naar één enkele rij met VBA-code
De volgende VBA-code helpt u ook bij het converteren van een gegevensbereik naar één rij.
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 Module-venster.
Sub TransformOneRow()
'Updateby20131120
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
InputRng.Rows(i).Copy OutRng
Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub3. Druk vervolgens op de toets F5 om de code uit te voeren. Er verschijnt een dialoogvenster waarin u een bereik met inhoud kunt selecteren dat u naar een rij wilt converteren; klik daarna op Ok. Vervolgens verschijnt er nog een dialoogvenster waarin u één cel kunt selecteren om het resultaat weer te geven. Zie schermafbeeldingen:
 |
 |
 |
Klik vervolgens op Ok, waarna de inhoud van het geselecteerde bereik naar één rij is geconverteerd. Zie schermafbeelding:
 |
|
 |
Opmerking: In Set OutRng = OutRng.Offset(0, xCols + 0) kunt u 0 vervangen door een willekeurig getal dat aan uw behoeften voldoet.
Bijvoorbeeld: als u de resultaten per oorspronkelijke rij wilt scheiden met één kolom, wijzigt u Set OutRng = OutRng.Offset(0, xCols + 0) in Set OutRng = OutRng.Offset(0, xCols + 1). De resultaten zien er dan als volgt uit:
Kolommen en rijen converteren naar één enkele rij met Kutools voor Excel
De bovenstaande twee methoden lijken misschien wat lastig voor Excel-beginners — daarom introduceer ik hier een handige tool: Kutools voor Excel.
Kutools voor Excel bevat meer dan 300 handige Excel-tools. Probeer het gratis en zonder beperkingen gedurende 30 dagen! Download nu
Met de functie Bereik transformeren van Kutools voor Excel zet u in een handomdraai een bereik om naar één enkele rij. Volg hiervoor de onderstaande stappen:
1. Selecteer het bereik dat u wilt transponeren.
2. Klik op Kutools > Bereik > Bereik transformeren.
3. Selecteer in het dialoogvenster Bereik transformeren de optie Bereik naar enkele rij. Zie schermafbeelding:
4. Klik vervolgens op OK en klik in het pop-upvenster op een cel om het resultaat te plaatsen.
5. Klik op OK, waarna de gegevens uit het bereik naar één enkele rij zijn getransponeerd. Zie de schermafbeeldingen:
|
|
 |
Als u meer wilt weten over deze functie, bezoekt u Bereik transformeren.
Gerelateerde artikelen:
Hoe verandert u een rij in een kolom in Excel?
Hoe zet u één enkele kolom om naar meerdere kolommen in Excel?
Hoe converteert u kolommen en rijen naar één enkele kolom?
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