Ga naar hoofdinhoud

Hoe transponeer ik elke 5 of n rijen van één kolom naar meerdere kolommen?

doc transponeren elke 5 rijen 1

Stel dat u lange gegevens in kolom A heeft, en nu wilt u elke 5 rijen van kolom A naar meerdere kolommen transponeren, zoals A1: A5 naar C6: G6, A6: A10 naar C7: G7, enzovoort, zoals volgende screenshot getoond. Hoe zou u met deze taak kunnen omgaan zonder herhaaldelijk te kopiëren en plakken in Excel?

Transponeer elke 5 of n rijen van één kolom naar meerdere kolommen met formule

Transponeer elke 5 of n rijen van één kolom naar meerdere kolommen met VBA-code

Transponeer elke 5 of n rijen van één kolom naar meerdere kolommen met Kutools voor Excel


In Excel kunt u de volgende formule toepassen om elke n rijen van één kolom naar meerdere kolommen te transponeren, doe dit als volgt:

1. Voer de volgende formule in een lege cel in waar u het resultaat wilt plaatsen, bijvoorbeeld C1 = INDEX ($ A: $ A, RIJ (A1) * 5-5 + KOLOM (A1)), zie screenshot:

doc transponeren elke 5 rijen 2

Note: In de bovenstaande formule, A: A is de kolomverwijzing die u wilt transponeren, en A1 is de eerste cel van de gebruikte kolom, het getal 5 geeft het aantal kolommen aan dat uw gegevens zullen vinden, u kunt ze naar wens wijzigen. En de eerste cel van de lijst moet zich op de eerste rij van het werkblad bevinden.

2. Sleep vervolgens de vulgreep naar rechts naar vijf cellen en sleep de vulgreep verder naar beneden naar het celbereik totdat 0 wordt weergegeven, zie screenshot:

doc transponeren elke 5 rijen 3


Transformeer elke 5 of n rijen van één kolom naar meerdere kolommen:

Om elke 5 of n rijen van één kolom naar meerdere kolommen te transformeren, Kutools for Excel's Transformeer bereik hulpprogramma kan u helpen deze taak zo snel mogelijk op te lossen. Het kan u ook helpen om een ​​reeks gegevens naar een enkele rij of kolom te transponeren. Klik om Kutools voor Excel te downloaden!

doc transponeren elke 5 rijen 10

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!


Als u de formule niet correct kunt toepassen, kan de volgende VBA-code u ook helpen.

1. Houd de 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.

VBA-code: transponeer elke 5 of n rijen van één kolom naar meerdere kolommen:

Public Sub TransposeData()
'updateby Extendoffice
    Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range only contain one column", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count
    For i = 1 To xLRow Step 5
        xRg.Cells(i).Resize(5).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Druk na het plakken van de code op F5 toets om het uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren de kolom te selecteren die u wilt transponeren, zie screenshot:

doc transponeren elke 5 rijen 4

4. Dan klikken OKen selecteer een cel waarin u het resultaat in een ander uitgeklapt vak wilt plaatsen, zie screenshot:

doc transponeren elke 5 rijen 5

5. En klik op OK, de gegevens in de kolom zijn geconverteerd naar vijf kolommen die je nodig hebt, zie screenshot:

doc transponeren elke 5 rijen 6

Note: In de bovenstaande code kunt u het nummer wijzigen 5 naar een ander nummer dat u nodig heeft.


Als je Kutools for Excel, Met Transformeer bereik hulpprogramma kunt u snel een kolom of rij naar meerdere kolommen en rijen transponeren.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. 

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Selecteer de gegevens in de kolom en klik op Kutools > RANGE > Transformeer bereik, zie screenshot:

2. In de Transformeer bereik dialoogvenster, selecteer Enkele kolom om te bereiken optie onder de Type transformeren, en controleer dan Vaste waarde onder de Rijen per recorden geef vervolgens het aantal kolommen op waarnaar u wilt transponeren in het Vaste waarde box, zie screenshot:

doc transponeren elke 5 rijen 8

3. En klik vervolgens op Ok knop, selecteer in het uitgeklapte vak een cel om het resultaat uit te voeren, zie screenshot:

doc transponeren elke 5 rijen 9

4. Dan klikken OK knop, en uw kolomgegevens zijn om de 5 rijen getransponeerd zoals in de volgende schermafbeelding:

doc transponeren elke 5 rijen 6

Download en gratis proef Kutools voor Excel nu!


Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

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...

Omschrijving


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!
Comments (15)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Bonjour,

J'ai, dans mon unique colonne de données, des cellules placées aléatoirement toutes les x lignes et qui contiennent une suite de caractères.

Je voudrait que cette cellule soit dans la première colonne de la ligne transposée, avec, dans les colonnes suivantes, la transposition des lignes qui la suivent, jusqu'à la répétition de ma chaine de caractères, qui signifierait le début de la ligne suivante...

Bref, Heeelllp...

Merci d'avance
Stéphane
This comment was minimized by the moderator on the site
You're a genius. Thanks!
Rated 5 out of 5
This comment was minimized by the moderator on the site
I try doing this just as written, and all I get is Error:508
This comment was minimized by the moderator on the site
Hi, How to do this for Colms to rows. Thank you
This comment was minimized by the moderator on the site
I've rewritten the command to this one:
=INDEX($A:$A,ROW(A1)+((COLUMN(A1)-2)*5))
This executes it inverted.
So:
1
2
3
4
5
6
7
8
9
...
becomes
1, 6
2, 7
3, 8
4, 9
5, ...
This comment was minimized by the moderator on the site
Thanks alot _/\_ Awesome job with =INDEX($A:$A,ROW(B1)*5-5+COLUMN(B1))
worked perfectly
This comment was minimized by the moderator on the site
I tried only the the formula option and it worked great. Till now have been using (Transpose formula with ctrl+shift+enter) but there the disadvantage for we have delete many extra rows. when the rows to be transposed for large in the order of lakhs, then deleting them in excel is either impossible or takes a lot of time.
this approach made the life easier by only copying the required rows... Thanks
This comment was minimized by the moderator on the site
This is fricking AWESOME!!! Thank you SO much. Your example was exactly what I needed and it worked beautifully.
This comment was minimized by the moderator on the site
=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
It was very simple and really useful. Thank you so much
This comment was minimized by the moderator on the site
It was great! Thank you! You saved me hours of manual work!
This comment was minimized by the moderator on the site
Thank you so much! It was really helpful. :)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations