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)))
Note: 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 Sub
3. 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:
Note: 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?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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!