Hur transponerar jag var 5: e eller varannan rad från en kolumn till flera kolumner?

Att överföra var 5:e eller n:e rad från en enskild kolumn till flera kolumner i Excel kan vara mycket användbart när du omorganiserar data för analys eller rapportering. Om du antar att du har långa data i kolumn A, och nu vill du transponera var 5:e rad från kolumn A till flera kolumner, såsom transponera A1:A5 till C6:G6, A6:A10 till C7:G7, och så vidare som vänster skärmdump visas. Denna uppgift kan lösas med olika metoder, var och en med sina egna fördelar. Låt oss gå igenom en detaljerad steg-för-steg-guide om hur du gör detta

Transponera var 5:e eller n:e rad från en kolumn till flera kolumner

• Med formel
• Med ett kraftfullt verktyg - Kutools för Excel
• Med VBA-kod

Transponera var 5: e eller varannan rad från en kolumn till flera kolumner med formeln

I Excel kan du använda följande formel för att transponera varje n rader från en kolumn till flera kolumner, gör så här:

1. Ange följande formel i en tom cell där du vill lägga resultatet, C1, till exempel, = INDEX ($ A: $ A, RAD (A1) * 5-5 + KOLONN (A1)), se skärmdump:

2. Dra sedan påfyllningshandtaget åt höger till fem celler och fortsätt att dra påfyllningshandtaget ner till cellområdet tills visar 0, se skärmdump:

Transponera var 5: e eller varannan rad från en kolumn till flera kolumner med Kutools för Excel

Är du frustrerad över att överföra Excel-data från en kolumn till flera kolumner? Kutools för Excel's Transformera intervall funktionen är här för att lösa dina problem! Oavsett om du behöver transponera var 5:e rad eller ett anpassat antal rader, vi har dig täckt. Flexibel radkonvertering låter dig fritt välja antalet rader som ska överföras från en kolumn till flera kolumner. Det är enkelt och snabbt, kräver inga komplicerade operationer – bara några klick för att få det gjort.

När du har installerat Kutools för Excel, gör så här:

1. Markera data i kolumnen och klicka sedan på Kutools > Mätområde > Transformera intervall, se skärmdump:

2. I Transformera intervall dialogrutan väljer du Enstaka kolumn för intervall alternativet under Transformera typ, och kontrollera sedan Fast värde under Rader per post, ange sedan antalet kolumner som du vill transponera till i Fast värde ruta, se skärmdump:

3. Och klicka sedan på Ok knapp, välj en cell för att mata ut resultatet, se skärmdump:

4. Klicka sedan OK -knappen och din kolumninformation har transponerats var femte rad enligt följande skärmdump:

Transponera var 5: e eller varannan rad från en kolumn till flera kolumner med VBA-kod

Om du inte kan använda formeln korrekt kan följande VBA-kod också hjälpa dig.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Transponera var 5: e eller varannan rad från en kolumn till flera kolumner:

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. När du har klistrat in koden, tryck F5 nyckel för att köra den, och en snabbruta dyker upp för att påminna dig om att du väljer den kolumn som du vill transponera, se skärmdump:

4. Klicka sedan OK, och välj en cell där du vill placera resultatet i en annan poppad ruta, se skärmdump:

5. och klicka OK, har data i kolumnen konverterats till fem kolumner som du behöver, se skärmdump:

För att överföra var 5:e eller n:e rad från en kolumn till flera kolumner i Excel introducerar den här artikeln tre effektiva metoder. Var och en av dessa metoder erbjuder en annan metod för att ordna om data i Excel, vilket tillgodoser olika nivåer av användarförtrogenhet med Excel-verktyg och -programmering. Om du är intresserad av att utforska fler Excel-tips och tricks, vår webbplats erbjuder tusentals tutorials.