Hoe kolommen en rijen in een enkele rij te transponeren / converteren?
Hoe voeg ik meerdere rijen en kolommen samen tot één lange rij? Misschien lijkt het u gemakkelijk, omdat u ze een voor een kunt kopiëren en handmatig in een rij kunt samenvoegen. Maar het zal tijdrovend en vervelend zijn als er honderden rijen en kolommen zijn. Hier zal ik het hebben over enkele snelle trucs om het op te lossen.
Transponeer / converteer kolommen en rijen in één rij met formule
Transponeer / converteer kolommen en rijen in één rij met VBA-code
Transponeer / converteer kolommen en rijen in één rij met Kutools voor Excel
Transponeer / converteer kolommen en rijen in één rij met formule
Stel dat u een gegevensbereik heeft, zoals in de volgende schermafbeelding wordt getoond, dan kunt u de bereikgegevens omzetten in één rij in een nieuw werkblad met een lange formule.
Pas de formule als volgt toe:
1. Klik in een nieuw werkblad van de actieve werkmap op cel A1, kopieer en plak deze formule: =OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))
Opmerking:: Blad1! $ A $ 1 is het werkblad en de bereikreferenties die u wilt gebruiken.
RIJ () - 1) * 5 in de bovenstaande formule, 5 staat voor het rijnummer; en KOLOM () - 1,4) / 4 4 staat voor het kolomnummer. U kunt ze naar behoefte wijzigen.
2. Sleep vervolgens de vulgreep naar rechts totdat nummer 0 verschijnt. In dit geval zijn alle gegevens in het bereik omgezet in een enkele rij in een nieuw werkblad. Zie screenshot:
Transponeer / converteer kolommen en rijen in één rij met VBA-code
De volgende VBA-code kan u ook helpen bij het converteren van een gegevensbereik naar één rij.
1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen 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 F5 toets om de code uit te voeren, verschijnt er een dialoogvenster waarin u een reeks inhoud kunt selecteren die u naar een rij wilt converteren, en klik op Ok, een ander pop-upvenster is dat u een enkele cel selecteert om het resultaat te tonen. Zie screenshots:
 |
 |
 |
Dan klikken Ok, wordt de inhoud in het geselecteerde bereik omgezet in een rij. Zie screenshot:
 |
|
 |
Opmerking:: In Set OutRng = OutRng.Offset (0, xCols + 0), je kan veranderen 0 naar elk nummer om aan uw behoefte te voldoen.
Als u bijvoorbeeld de resultaten volgens de oorspronkelijke rijen met één kolom wilt scheiden, kunt u dit wijzigen Set OutRng = OutRng.Offset (0, xCols + 0) naar Set OutRng = OutRng.Offset (0, xCols + 1), de resultaten worden als volgt weergegeven:
Transponeer / converteer kolommen en rijen in één rij met Kutools voor Excel
Het lijkt erop dat de bovenstaande twee methoden enigszins moeilijk zijn voor ons Excel-beginner, hier zal ik het hebben over een handige tool-Kutools voor Excel voor jou.
Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now
Met het hulpprogramma Transformeer bereik of Kutools for Excelkunt u snel een bereik omzetten in een enkele rij, doe dit als volgt:
1. Selecteer het bereik dat u wilt transponeren.
2. klikken Kutools > Bereikomvormer > Transformeer bereik, zie screenshot:
3. In de Transformeer bereik dialoogvenster, selecteer Bereik tot enkele rij optie, zie screenshot:
4. Dan klikken OKen klik op een cel om het resultaat uit het pop-outvenster te plaatsen.
5. klikken OK, en de gegevens in het bereik zijn omgezet in één rij. Zie screenshots:
|
|
 |
Ga naar als je meer wilt weten over deze functie Transformeer bereik.
Gerelateerde artikelen:
Hoe verander ik rij naar kolom in Excel?
Hoe een enkele kolom naar meerdere kolommen in Excel transponeren / converteren?
Hoe kolommen en rijen in één kolom te transponeren / converteren?
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
