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
Transzponáljon minden 5 vagy n sort egy oszlopból több oszlopba a Kutools for Excel segítségével
Á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.
Transzponáljon minden 5 vagy n sort egy oszlopból több oszlopba a Kutools for Excel segítségével
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ója a Kutools for Excel programhoz most!
Demo: 5 vagy n soronként transzponáljon egy oszlopból több oszlopba a Kutools for Excel segítségével
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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!