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

Ha feltételezzük, hogy hosszú adatai vannak az A oszlopban, mostantól minden öt sort át szeretne ültetni az A oszlopból több oszlopba, például átültetni az A5: A1-től C5: G6-ig, A6: A6-től C10: G7-ig stb. a következő képernyőkép látható. Hogyan tudná kezelni ezt a feladatot anélkül, hogy többször másolna és beillesztene az Excel programba?

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

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

Átültet minden 5 vagy n sort egy oszlopból több oszlopba a Kutools for Excel programmal

Á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:

Megjegyzések: A fenti képletben A: A az átültetni kívánt oszlop hivatkozás, és A1 a használt oszlop első cellája, a szám 5 jelzi az oszlopok számát, amelyet az adatai meg fognak találni, ezeket igény szerint módosíthatja. És a lista első cellájának a munkalap első sorában kell lennie.

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:

Á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:

Megjegyzések: A fenti kódban megváltoztathatja a számot 5 másik számra, amelyre szüksége van.

Átültet minden 5 vagy n sort egy oszlopból több oszlopba a Kutools for Excel programmal

Ha van Kutools for Excel, Annak Transform Range segédprogram segítségével gyorsan átvihet egy oszlopot vagy sort több oszlopba és sorba.

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

1. Jelölje ki az adatokat az oszlopban, majd kattintson a gombra Kutools > Választék > Transform Range, lásd a képernyőképet:

2. Az Transform Range 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öltse le és ingyenes próbaverziót Kutools for Excel Now!

Bemutató: 5 vagy n soronként helyezzen át egy oszlopból több oszlopba a Kutools for Excel programmal

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

• újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
• Super Formula Bar (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
• Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
• Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
• Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
• Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
• Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
• Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
• Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás... 

---

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

• Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
• Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
• 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés... Vásárlás...