Note: The other languages of the website are Google-translated. Back to English

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

doc átültet minden 5 sorban 1

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


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:

doc átültet minden 5 sorban 2

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:

doc átültet minden 5 sorban 3


Átalakítsa minden 5 vagy n sort egy oszlopból több oszlopba:

Minden 5 vagy n sor átalakítása egy oszlopból több oszlopká, Kutools az Excel számára's Átalakítási tartomány segédprogram segítségével megoldhatja ezt a munkát a lehető leggyorsabban. Ez segíthet abban is, hogy egy adatsort egyetlen sorba vagy oszlopba helyezzen át. Kattintson a Kutools for Excel letöltéséhez!

doc átültet minden 5 sorban 10

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!


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:

doc átültet minden 5 sorban 4

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:

doc átültet minden 5 sorban 5

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

doc átültet minden 5 sorban 6

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


Ha van Kutools az Excel számára, Annak Átalakítási tartomány segédprogram segítségével gyorsan átvihet egy oszlopot vagy sort több oszlopba és sorba.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. 

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:

doc átültet minden 5 sorban 8

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:

doc átültet minden 5 sorban 9

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

doc átültet minden 5 sorban 6

Töltse le és ingyenes próbaverziót Kutools for Excel Now!


Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

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 ...
  • Szuper Formula Bár (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-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

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 naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (15)
Az 5-t az 5-ből kiértékelte · 1 értékelés
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Megkérdezhetem, hogyan lehet üres cellahatároló rekordokat hozzáadni 5 helyett, mivel az általam kezelt adatok nem rendelkeznek fix sorszámmal. Úgy gondolom, hogy a módosítandó rész a kód ezen része körül lehet: For i = 1 To xLRow 5. lépés xRg.Cells(i).Resize(5).Copy xOutRg.Offset(xNRow, 0).PasteSpecial Paste: =xlPasteAll, Transpose:=Igaz xNRow = xNRow + 1 Legjobb
A weboldal moderátora ezt a megjegyzést minimalizálta
kaptál választ ugyanarra, mivel ugyanaz a problémám, az oszlopok nincsenek számokban rögzítve, mit tegyek, használhatok-e egy adott karaktert határolóként, amely megszakítja a hurkot, és számolja a következő sort és az új adatkészletet?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanez a problémám van , ahol az oszlopok nincsenek rögzítve, és vannak üres sorok, de minden adatkészletnek ugyanaz a karaktere és vége, vagyis "=" használhatom ezt elválasztóként , ami megszakítja a hurkot, és a következő sor új adatkészletnek minősül?
A weboldal moderátora ezt a megjegyzést minimalizálta
Milyen képletet kell 5 soronként egyetlen oszlopba transzponálni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon szépen köszönöm! Nagyon hasznos volt. :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon jó volt! Köszönöm! Óráknyi kézi munkától spóroltál meg!
A weboldal moderátora ezt a megjegyzést minimalizálta
= INDEX ($ A: $ A, ROW (A1) * 5-5 + OSZLOP (A1))
Nagyon egyszerű volt és nagyon hasznos. Nagyon szépen köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez NAGYON NAGYON!!! Nagyon szépen köszönöm. A példád pont az volt, amire szükségem volt, és gyönyörűen működött.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kipróbáltam csak a formula opciót, és remekül működött. Eddig használtuk (a képlet átírása ctrl+shift+enter billentyűkkel), de ott az a hátránya, hogy sok felesleges sort töröltünk. amikor a transzponálandó sorok nagyságrendileg milliós nagyságrendben vannak, akkor az excelben való törlésük vagy lehetetlen, vagy sok időt vesz igénybe.
ez a megközelítés megkönnyítette az életet azzal, hogy csak a szükséges sorokat másolta... Köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen _/\_ Nagyszerű munka =INDEX($A:$A,ROW(B1)*5-5+COLUMN(B1))
tökéletesen működött
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Hogyan kell ezt megtenni Colms to rows számára. Köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
A parancsot átírtam erre:
=INDEX($A:$A,SORO(A1)+((OSZLOP(A1)-2)*5))
Ez fordítva hajtja végre.
Így:
1
2
3
4
5
6
7
8
9
...
válik
1, 6
2, 7
3, 8
4, 9
5,...
A weboldal moderátora ezt a megjegyzést minimalizálta
Megpróbálom a leírtak szerint csinálni, és csak az Error:508-as üzenetet kapom
A weboldal moderátora ezt a megjegyzést minimalizálta
Zseni vagy. Kösz!
Az 5-t az 5-ből kiértékelte
A weboldal moderátora ezt a megjegyzést minimalizálta
Jó napot,

J'ai, dans mon unique colonne de données, des cellules placées aléatoirement toutes les x lignes et qui contiennent une suite de caractères.

Je voudrait que cette cellule soit dans la première colonne de la ligne transposée, avec, dans les colonnes suivantes, la transposition des lignes qui la suivent, jusqu'à la répétition de ma chaine de caractères, qui signifierait le débutvanteligne débutianeligne. ..

Bref, Heeelllp...

Merci d'avance
Stéphane
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi