Hogyan lehet minden 5 vagy n sort átadni egy oszlopból több oszlopba?

Az Excelben minden 5 vagy n sor áthelyezése egyetlen oszlopból több oszlopba nagyon hasznos lehet az adatok elemzés vagy jelentéskészítés céljából történő átrendezésekor. Tételezzük fel, hogy hosszú adatok vannak az A oszlopban, és most minden 5. sort szeretne transzponálni az A oszlopból több oszlopba, például transzponálni az A1:A5-öt a C6:G6-ba, az A6:A10-et a C7:G7-be, és így tovább bal oldali képernyőkép látható. Ezt a feladatot különböző módszerekkel lehet megközelíteni, mindegyiknek megvannak a maga előnyei. Nézzünk végig egy részletes, lépésről lépésre szóló útmutatón, hogy ezt hogyan lehet elérni

Transzponáljon minden 5 vagy n sort egy oszlopból több oszlopba

• Képlettel
• Egy hatékony eszközzel - Kutools for Excel
• VBA kóddal

Átültet minden 5 vagy n sort egy oszlopból több oszlopba képlettel

Az Excelben a következő képletet alkalmazhatja az n n sor átültetéséhez egy oszlopból több oszlopba, kérjük, tegye a következőket:

1. Írja be a következő képletet egy üres cellába, ahová be akarja tenni például az eredményt, C1 = INDEX ($ A: $ A, ROW (A1) * 5-5 + OSZLOP (A1)), lásd a képernyőképet:

2. Ezután húzza jobbra a kitöltő fogantyút öt cellára, és húzza tovább a kitöltő fogantyút a cellák tartományába, amíg a 0 meg nem jelenik, lásd a képernyőképet:

Transzponáljon minden 5 vagy n sort egy oszlopból több oszlopba a Kutools for Excel segítségével

Csalódott az Excel-adatok egy oszlopból több oszlopba történő áthelyezése miatt? Kutools az Excel számára's Átalakítási tartomány a funkció itt van, hogy megoldja a problémáit! Akár 5 soronként, akár egyéni sorszámonként kell transzponálnia, mi mindent megtalálunk. A rugalmas sorkonverzió lehetővé teszi, hogy szabadon megválaszthassa az egy oszlopból több oszlopba transzponálandó sorok számát. Egyszerű és gyors, nem igényel bonyolult műveleteket – mindössze néhány kattintással elvégezhető.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Jelölje ki az adatokat az oszlopban, majd kattintson a gombra Kutools > Választék > Átalakítási tartomány, lásd a képernyőképet:

2. Az Átalakítási tartomány párbeszédpanelen válassza ki Egyetlen oszlop a tartományhoz lehetőség a Átalakítás típusa, majd ellenőrizze Rögzített érték alatt a Sorok rekordonként, majd adja meg az átültetni kívánt oszlopok számát a Rögzített érték mező, lásd a képernyőképet:

3. Kattintson a gombra Ok gombra, a felbukkanó mezőben válassza ki a cellát az eredmény megjelenítéséhez, lásd a képernyőképet:

4. Ezután kattintson OK gombra, és az oszlopadatokat 5 soronként transzponáltuk a következő képernyőkép szerint:

Átültet minden 5 vagy n sort egy oszlopból több oszlopba VBA kóddal

Ha nem tudja megfelelően alkalmazni a képletet, a következő VBA-kód is segítségére lehet.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: 5 vagy n soronként helyezze át egy oszlopból több oszlopba:

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. A kód beillesztése után nyomja meg a gombot F5 gombot a futtatásához, és megjelenik egy prompt doboz, amely emlékezteti Önt az átültetni kívánt oszlop kiválasztására, lásd a képernyőképet:

4. Ezután kattintson OK, és válasszon egy cellát, ahová az eredményt egy másik felbukkanó mezőbe szeretné tenni, lásd a képernyőképet:

5. és kattintson OK, az oszlop adatait öt szükséges oszlopra konvertáltuk, lásd a képernyőképet:

Ez a cikk három hatékony módszert mutat be annak érdekében, hogy az Excelben minden 5 vagy n sor egy oszlopból több oszlopba kerüljön. Ezen módszerek mindegyike más megközelítést kínál az adatok átrendezéséhez az Excelben, figyelembe véve az Excel-eszközök és programozás felhasználói ismereteinek különböző szintjét. Ha további Excel-tippeket és trükköket szeretne felfedezni, weboldalunk több ezer oktatóanyagot kínál.