Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe elke 5- of n-rijen van één kolom naar meerdere kolommen transponeren?

doc transponeren elke 5 rijen 1

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

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

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

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


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 een gegevensbereik naar een enkele rij of kolom te transponeren.

doc transponeren elke 5 rijen 10

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!



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 in een lege cel waar u het resultaat wilt plaatsen, C1 bijvoorbeeld = INDEX ($ A: $ A, ROW (A1) * 5-5 + COLUMN (A1))zie screenshot:

doc transponeren elke 5 rijen 2

Notes: In de bovenstaande formule, A: A is de kolomverwijzing die u wilt transponeren, en A1 is de eerste cel van de gebruikte kolom, het nummer 5 geeft het aantal kolommen aan dat uw gegevens zullen vinden, u kunt ze aanpassen aan uw behoefte. 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 het celbereik totdat 0 wordt weergegeven, zie screenshot:

doc transponeren elke 5 rijen 3


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

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

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

Public Sub TransposeData()
'updateby Extendoffice 20151207
    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. Nadat u de code hebt geplakt, drukt u op F5 toets om het uit te voeren, en er verschijnt een promptvak om u eraan te herinneren selecteer de kolom 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 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 u nodig hebt, zie screenshot:

doc transponeren elke 5 rijen 6

Notes: In de bovenstaande code kunt u het nummer wijzigen 5 naar een ander nummer dat je nodig hebt.


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

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

Na het installeren van Kutools for Excel, alsjeblieft als volgt doen:

1. Selecteer de gegevens in de kolom en klik vervolgens op Kutools > Bereik > Transformeer bereikzie screenshot:

doc transponeren elke 5 rijen 7

2. In de Transformeer bereik dialoogvenster, selecteer Eén kolom om te variëren optie onder de Transformeer typeen controleer vervolgens Vaste waarde onder de Rijen per recorden geef vervolgens het aantal kolommen op dat u wilt transponeren in de Vaste waarde doos, zie screenshot:

doc transponeren elke 5 rijen 8

3. En klik vervolgens op Ok knop, selecteer in het uitgevouwen vakje 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 elke 5-rijen getransponeerd volgens het volgende screenshot:

doc transponeren elke 5 rijen 6

Download en proef Kutools nu voor Excel!


Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Maha · 3 months ago
    Thanks alot _/\_ Awesome job with =INDEX($A:$A,ROW(B1)*5-5+COLUMN(B1))
    worked perfectly
  • To post as a guest, your comment is unpublished.
    Arun Balaji VN · 4 months ago
    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
  • To post as a guest, your comment is unpublished.
    Sian · 1 years ago
    This is fricking AWESOME!!! Thank you SO much. Your example was exactly what I needed and it worked beautifully.
  • To post as a guest, your comment is unpublished.
    hamidreza · 1 years ago
    =INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
    It was very simple and really useful. Thank you so much
  • To post as a guest, your comment is unpublished.
    Thank · 1 years ago
    It was great! Thank you! You saved me hours of manual work!
  • To post as a guest, your comment is unpublished.
    xplode · 2 years ago
    Thank you so much!
    It was really helpful. :)
  • To post as a guest, your comment is unpublished.
    MTVN · 2 years ago
    What formula to transpose every 5 rows to a single column?
  • To post as a guest, your comment is unpublished.
    hgimongu · 2 years ago
    Hi!

    May I ask you how to add Blank cell delimits records, instead of 5 as the data I am handling hasn't got fix number of rows. I believe the part which I should change may be around this part of the code:

    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

    Best