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

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
Transponeer elke 5 of n rijen van één kolom naar meerdere kolommen met formule
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:
Opmerking:: 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:
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! Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis! |
Transponeer elke 5 of n rijen van één kolom naar meerdere kolommen met VBA-code
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:
4. Dan klikken OKen selecteer een cel waarin u het resultaat in een ander uitgeklapt vak wilt plaatsen, zie screenshot:
5. En klik op OK, de gegevens in de kolom zijn geconverteerd naar vijf kolommen die je nodig hebt, zie screenshot:
Opmerking:: In de bovenstaande code kunt u het nummer wijzigen 5 naar een ander nummer dat u nodig heeft.
Transponeer elke 5 of n rijen van één kolom naar meerdere kolommen met Kutools voor Excel
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 > Bereik > 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:
3. En klik vervolgens op Ok knop, selecteer in het uitgeklapte vak een cel om het resultaat uit te voeren, zie screenshot:
4. Dan klikken OK knop, en uw kolomgegevens zijn om de 5 rijen getransponeerd zoals in de volgende schermafbeelding:
Download en gratis proef Kutools voor Excel nu!
Demo: transponeer elke 5 of n rijen van één kolom naar meerdere kolommen met Kutools voor Excel
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!















