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

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!















