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:
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:
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:
Note: 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 > 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:
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
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!